Найти среднее арифметическое всех отрицательных элементов массива, а из оставшихся сформировать новый массив - Turbo Pascal

Формулировка задачи:

В массиве а₁, а₂, ..., а₃₀ найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив b_k. Буду очень благодарен.

Решение задачи: «Найти среднее арифметическое всех отрицательных элементов массива, а из оставшихся сформировать новый массив»

Листинг программы

uses
  SysUtils;
var
a: array [0..100] of Integer;
b: array [0..100] of Integer;
i,j,m,N: Integer;
S: Real;
begin
//Число элементов
Readln(N);
//Ввод значенией элементов
for i := 1 to N do
  begin
    Readln(a[i]);
  end;
//Вывод элементов на экран
 for i := 1 to N do
  begin
    Write(a[i]);
  end;
s:=0;
m:=1;
j:=1;
Writeln;
//Нахождение среднего арифметического отрицательных чисел
  for i := 1 to N do
     begin
 
      if a[i]<0 then
      begin
       S:=(S+a[i])/m;
       m:=m+1;
        end
       Else
       begin
       b[j]:=a[i];
       j:=j+1;
       end;
 
     end;
//Вывод нового массива на экран
  for i := 1 to j-1 do
  begin
    Write(b[i]);
  end;
  Writeln;
  Writeln(S:3:2);
  Readln;
end.

Объяснение кода листинга программы

Создаются два массива a и b размером 100 для хранения вводимых значений.
Вводится количество элементов N.
Для каждого элемента i от 1 до N происходит чтение значения и его сохранение в соответствующий элемент массива a.
Выводится содержимое массива a на экран.
Инициализируются переменные S, m и j для вычисления среднего арифметического и сохранения отрицательных чисел.
Запускается цикл по всем элементам массива a.
Если значение элемента a[i] отрицательное, то вычисляется среднее арифметическое S и увеличивается счетчик m.
Если значение элемента a[i] положительное, то значение сохраняется в массив b, а счетчик j увеличивается на 1.
После завершения цикла выводится новый массив b на экран.
Выводится среднее арифметическое S на экран.