паскаль
найти максимальный элемент из 30 целых чисел которые вводятся постоянно
Ответы на вопрос
Ответил Gavgavgavgav
0
program Znanija;
var readd, i, maxx: Integer;
begin
read(readd);
maxx:=readd;
for i:=0 to 29 do
begin
read(readd);
if readd > maxx then
maxx :=readd;
end;
write('Max element is ', maxx);
end.
var readd, i, maxx: Integer;
begin
read(readd);
maxx:=readd;
for i:=0 to 29 do
begin
read(readd);
if readd > maxx then
maxx :=readd;
end;
write('Max element is ', maxx);
end.
Ответил vladmor
0
В цикле for пропустили do. Будет ругаться типа "ожидалось do"
Ответил Gavgavgavgav
0
Извините
Новые вопросы