Pascal:
Program zadacha;
const n=20;
var a:array[1..20] of integer;
i,k,m:integer;
Sr:real;
// k- кол-во отриц. чисел; m - отриц.числа; Sr- средне арифм.
begin
for i:=1 to n do
a[i] := random (-20,20);;
write('Массив: ');
for i := 1 to n do write(a[i],', ');
m := 0; k:=0;
for i:=1 to n do
if (a[i]<0) then begin k:=k+1; m:=m+a[i]; end;</p>
Sr :=m/k;
writeln;
writeln('Среднее арифметицеское отриц.чисел = ',Sr);
end.