Дано массив A [1 ... n]. Сложить программу подсчета средних арифметических всех отрицательных и всех положительных его чисел

var a: array[1 ... 999] of integer;

n, sp, so, kp, ko: integer;

begin

read (n) ;

for var i : = 1 to n do begin

a[i] : = random (-9, 9) ;

write (a[i], ' ') ;

if a[i] > 0 then begin

sp + = a[i];

kp + = 1;

end;

if a[i] < 0 then begin

so + = a[i];

ko + = 1;

end;

end;

writeln;

writeln ('Среднее арифметическое положительных чисел = ', sp/kp) ;

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

end.