Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — максимальное число, кратное 5.
Сделайте в кумире
Плачу
Паскаль
8
9
10
11
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
Кумир
САМ ПИШИ