Question

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

Answer 1

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.