Question

Организовать цикл "Для" для 7 итераций, ввести 7 чисел и найти max число из

введенных чисел. Вывести мах число.
В PascalABC

Answer 1

Ответ:

var a,i,max: integer;

begin

max:=0;

for i:=1 to 7 do  

 begin

 readln(a);

 if (a>max) then max:=a;

 end;

writeln(max);

end.