Напишите программу, которая в последоваnельности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа.В последовательности всегда имеется число, кратное 5. Ко личе ство чисел не пре вы ша ет 1000. Введённые числа не пре вы ша ют 30 000. Пграмма должна вывести одно число — максимальное число, кратное 5.

Question

Клавдий

4 год назад

ОТВЕТЫ

Вениамин

Oct 24, 2020

Program kratnoe;

var N,i,a,max: integer;

begin

writeln('Введите количество чисел:'); Readln(N);

max:=0;

For i:=1 to N do

begin

write('Введите число:'); readln(a);

if a mod 5 = 0 then

if a>max then max:=a;

end;

writeln(':',max);

end.

704