Напишите программу, которая в последоваnельности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа.В последовательности всегда имеет...

Question

Напишите программу, которая в последоваnельности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа.В последовательности всегда имеет...

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

Program kratnoe;var N,i,a,max: integer;beginwriteln('Введите количество чисел:'); Readln(N);max:=0;For i:=1 to N dobeginwrite('Введите число:'); readln(a);if a mod 5 = 0 thenif a>max then max:=a;end;writeln('ответ:',max);end.