Помогите решить задачу, совсем не шарю в инфе, а сдавать надо как-то)

[spectatorss]

Дан одномерный массив А(10) элементами которого являются
положительные и отрицательные целые числа, вводимые с клавиатуры.
Сформировать новый массив В(10) заменив отрицательные элементы
массива Аi средним арифметическим значением отрицательных элементов, с
подсчётом их количества. На дисплей вывести: исходный массив А(10),
количество отрицательных элементов, их среднее значение.

[Serge_Bliznykov]

Вы для чего тему создали в разделе Фриланс ?!
Для помощи за деньги?
Тогда зачем создаёте ещё одну?
Какую из них закрыть?

[newerow1989]

var i,n:integer;
    sr:real;
    a,b:array[1..10] of real;
begin
   For i:=1 to 10 do
   begin
      Write('a[',i,'] = ');
      Readln(a[i]);
   end;
   Writeln;
   Writeln;
   sr:=0;
   n:=0;
   For i:=1 to 10 do
      If a[i]<0 then
      begin
         n:=n+1;
         sr:=sr+a[i];
      end;
   If n<>0 then
      sr:=sr/n;
   For i:=1 to 10 do
      If a[i]<0 then
         b[i]:=sr else
         b[i]:=a[i];
   For i:=1 to 10 do
      Write(b[i]:3:5,'  ');
   Writeln;
   Writeln(sr:3:5);
   Readln;
end.