Question

паскаль

найти максимальный элемент из 30 целых чисел которые вводятся постоянно

Answer 1

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.

Answer 2

В цикле for пропустили do. Будет ругаться типа "ожидалось do"

Answer 3

Извините