Напишите программу, которая в последовательности - вопрос №2685962 от Слива05 16.02.2022 04:42

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – максимальное число, кратное 5. без команды max

Слива05 · Answer

Var  i, n, max, number :integer;begin  readln(n);  max:= 5;  for i:= 1 to n do  begin    readln(number);    if (number mod 5 = 0) and (number max) then      max:= number;  end;  writeln(number);end....