Решите, пожалуйста, задачу на Паскале. Найти среднее арифметической каждой строки в двумерном массиве и скинуть в новый массив.
Решите, пожалуйста, задачу на Паскале.
Найти среднее арифметической каждой строки в двумерном массиве и скинуть в новый массив.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы