Program qq;

var a, c, d, f:integer;

begin

readln(c);

f:=0;

for d:=1 to c do begin

readln(a);

if(a mod 5=0) and (a>max) then f:=a

end;

writeln(f);

end
ПЕРЕВЕДИТЕ ИЗ ПАСКАЛЬ В КУМИР
ПЛАЧУ

Evg120058 Evg120058    3   07.04.2020 18:38    3

Другие вопросы по теме Другие предметы