Как создать одномерный массив размером М элементов - Pascal

Если есть уже двумерный массив размером М*N элементов и как записать в одномерный массив среднее арифметическое элементов строки ?

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

for i:=1 to m do
 begin
  b[i]:=0;
  for j:=1 to n do
  b[i]:=b[i]+a[i,j];
  b[i]:=b[i]/n;
 end;

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

В данном коде выполняется следующая последовательность действий:

Создается цикл for, который выполняет указанный блок кода для каждого элемента массива b от индекса 1 до m.
В каждой итерации цикла, элемент b[i] инициализируется значением 0.
Для каждого элемента массива a от индекса 1 до n выполняется следующий блок кода:
- Элемент b[i] увеличивается на значение элемента a[i,j].
Значение элемента b[i] делится на n.
Цикл завершается.

Оцени полезность:

6 голосов , оценка 3.833 из 5

Похожие ответы