Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел.Программа выводит кол-во чисел кратных 5 и её произведение.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.