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

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

В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

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

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.667 из 5


СДЕЛАЙТЕ РЕПОСТ