Задание

Установите соответствие между условием задачи и текстом программы.
var w, q, e, r: integer;
begin
q:=0;
readln\(w\);
for e:=1 to w do
begin
readln\(r\);
if \(r mod 5 = 0\) then
q:=q+1;
end;
writeln\(q\);
end.

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