Задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности.

Написать программу в Pascal.

Var

a: array[1 ... 100] of integer;

i, n, c, h: integer;

begin

writeln ('Введите кол-во элементов последовательности:') ; readln (n) ;

writeln ('Введите последовательность:') ;

for i:=1 to n do

begin

read (a[i]) ;

if a[i]<0 then

begin

c:=c+a[i];

h:=h+1;

end;

end;

writeln (c/h) ;

end.