Дан целочисленный массив, заданный датчиком случайных чисел в интервале
от -20 до 20. Найти среднее арифметическое отрицательных элементов массива.

python

a = [] #какой-то массив

s = 0

s1 = []

for i in a:

   if i < 0:

       s1.append(i)

s = len(s1)

print(sum(s1) * s))

Объяснение:

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;

Sr :=m/k;

writeln;

writeln('Среднее арифметицеское отриц.чисел = ',Sr);

end.