Question

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

Answer 1

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.