Question

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

Answer 1

program sum_of_multiples_of_five;

var n, i, number, sum: integer;

begin

sum := 0;

write('Введите количество элементов в последовательности: ');

read(n);

for i := 1 to n do

begin

write('Введите элемент ', i, ': ');

read(number);

if (number mod 5 = 0) then

sum := sum + number;

end;

writeln('Сумма кратных пяти: ', sum);

end.