Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел.программа выводит кол-во чисел кратных 5 и её произведение.

166

232

Посмотреть ответы 2

Ответы на вопрос:

тамик50

Информатика

4,6(8 оценок)

Var a : array [1..10] of integer; count, prod, i : integer; begin count : = 0; prod : = 1; for i : = 1 to 10 do read (a[i]); for i : = 1 to 10 do if a[i] mod 5 = 0 then begin count : = count + 1; prod : = prod * a[i]; end; if count > 1 then write (count, ' ', prod) else write ('таких чисел нет'); end.