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

Question

Паскаль

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

Answer 1

const n=30;

var max,i,x:integer;

begin

max:=-MaxInt;

for i:=1 to n do begin

  readln(x);

  if x>max then max:=x;

end;

writeln(max);

end.

Answer 2

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.

Comments

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

---

Извините