вычислить среднее арифметическое отрицательных элементов вектора Q(21)
p.s.через программу паскаль

const n=21;var q:array[1..n] of integer;i,s,k:integer;beginRandomize;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