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

ilyxa24 ilyxa24    3   13.07.2019 20:50    0

Ответы
nurkenalmazbek nurkenalmazbek  03.10.2020 03:18
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика