Вычислить среднее арифметическое отрицательных элементов вектора Q (21)

p. s. через программу паскаль

Const n=21;

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

i, s, k:integer;

begin

Randomize;

for i:=1 to n do

begin

q[i]:=random (51) - 10;

write (q[i]:4) ;

end;

writeln;

k:=0; s:=0;

for i:=1 to n do

if q[i]<0 then begin s:=s+q[i]; k:=k+1; end;

writeln ('Среднее арифметическое отрицательных элементов = ', s/k) ;

end.

Пример:

16 - 1 - 7 5 13 11 - 2 - 10 36 19 3 34 23 29 12 28 9 39 33 16 - 6

Среднее арифметическое отрицательных элементов = - 5.2