Дорофей
6 год назад
Напишите программу, которая в последовательности натуральных
чисел определяет максимальное число, кратное 5. Программа
получает на вход количество чисел в последовательности, а затем сами
числа. В последовательности всегда имеется число, кратное 5.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000. ТОЛЬКО ИСПОЛЬЗОВАТЬ НАДО ЦИКЛ repeat
ОТВЕТЫ
Teryaev
Jul 4, 2019
Var
max, n, x: integer;
begin
readln(n);
max := -30000;
repeat
readln(x);
if (x gt; max) and (x mod 5 = 0) then
max := x;
dec(n);
until n = 0;
writeln(max);
end.
max, n, x: integer;
begin
readln(n);
max := -30000;
repeat
readln(x);
if (x gt; max) and (x mod 5 = 0) then
max := x;
dec(n);
until n = 0;
writeln(max);
end.
52
Смежные вопросы:
