массив

[МАРИНАД]

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ

УСЛОВИЕ ЗАДАЧИ:
Дан массив N целых чисел. найти сумму и количество элементов кратных 5 и вывести кратные на экран

[Utkin]

Цикл и две переменных, одна ведет подсчет чисел делящихся без остатка на 5, во второй будет храниться их сумма.

[ROMA2PVT]

sum:=0;
kol:=0;
for i:=1 to n do
if a[i] mod 5=0 then
begin
sum:=sum+a[i];
inc(kol);
writeln(a[i],' ')
end;

вывод суммы и количества