Question

написать программу нахождения максимального из пяти значений. Паскаль

Answer 1

Ответ:

var i,a,max:integer;

begin

max:=0;

for i:=1 to 5 do begin

read(a);

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

end;

writeln;

write(max);

end.