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

var a:array[1..1000] of integer;k,s:integer; sr:real;beginwrite('Введите количество элементов массива n='); readln(n);for i:=1 to n do read(a[i]);writeln;k:=0; s:=0;for i:=1 to n doif a[i] mod 5 = 0 then begins:=s+a[i]; k:=k+1; end;sr:=s/k;writeln('Среднее арифметическое элементов массива кратных 5 = ',sr);end.