Задание

Установите соответствие между условием задачи и текстом программы.

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.