Ответ:
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.