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

var a: array[1..10] of integer;    b: array[1..10] of real;    i,n: integer;    s: real;begin  s:=0; n:=0;  write('массив a:  ');  for i:=1 to 10 do  begin    read(a[i]);    if a[i]<0 then     begin      s:=s+a[i];      n:=n+1;    end;      write(a[i],' ');  end;  s:=s/n;   writeln;  writeln('среднее арифметическое отрицательных: ',s);  writeln('количество отрицательных: ',n);  write('массив b:  ');  for i:=1 to 10 do  begin    if a[i]<0 then b[i]:=s    else b[i]:=a[i];    write(b[i]:7:3);  end;end.массив a:  2 2 -3 1 -5 -6 -5 9 -7 5 среднее арифметическое отрицательных: -5.2количество отрицательных: 5массив b:    2.000  2.000 -5.200  1.000 -5.200 -5.200 -5.200  9.000 -5.200 5.000