Question

Решите, пожалуйста, задачу на Паскале.
Найти среднее арифметической каждой строки в двумерном массиве и скинуть в новый массив.

Answer 1

const n = 5;
var
a: array[1..n, 1..n] of integer;
b: array[1..n] of real;
i, j, k: integer;
begin
//считываем матрицу
for i:=1 to n do
   for j:=1 to n do
      readln(a[i, j]);
//находим среднее для каждой строки
//и заполняем ими массив b
for i:=1 to n do
   begin
      k:=0;
      for j:=1 to n do
         k:=k+a[i,j];
      b[i] := k/n;
   end;
//вывод массива b
for i:=1 to n do
writeln(b[i]);
end.