Найти среднее арифметическое всех элементов массива, которые делятся ** 5

Question

Найти среднее арифметическое всех элементов массива, которые делятся на 5

Answer 1

const n=10;

var a:array [1..n] of integer;

i,s,k:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random (16);

write (a[i],'  ');

if a[i] mod 5 = 0 then

begin

s:=s+a[i];

k:=k+1

end

end;

writeln;

if k<>0 then writeln('Среднее арифметическое элементов массива, которые делятся на 5, равно: ',s/k:0:3)

else writeln ('Элементов массива, которые делятся на 5, нет.')

end.