Паскаль.Даны 100 целых чисел.Найти все значения,кратные 5 и сложить их

Предыдущий
вопрос Следующий
вопрос

Пусть заданные числа хранятся в массиве a. Тогда фрагмент программы с решением задачи выглядит так:

...

sum:=0; // инициализируем счетчик суммы

//в цикле проверяем кратность текущего элемента массива 5

//и при выполнении условия увеличиваем значение счетчика

for i:=1 to 100 do

if (a[i] mod 5 = 0) then sum:=sum+a[i];

//выводим результат

writeln (sum);

...