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.
