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

Паскаль.

Var a:array[1 ... 1000] of integer;

k, s:integer; sr:real;

begin

write ('Введите количество элементов массива n=') ; readln (n) ;

for i:=1 to n do read (a[i]) ;

writeln;

k:=0; s:=0;

for i:=1 to n do

if a[i] mod 5 = 0 then begin

s:=s+a[i]; k:=k+1; end;

sr:=s/k;

writeln ('Среднее арифметическое элементов массива кратных 5 = ', sr) ;

end.