Question

Разработать алгоритм и программу для вычисления среднего арифметического любых указанных строки или столбца двумерного массива размером [n×m]. значения n и m должны вводиться с клавиатуры (принять 4≤n≤10, 4≤m≤10). ввод номера строки или номера столбца – с клавиатуры. предусмотреть вывод исходного массива в виде таблицы.free pascal

Answer 1

Const
n = 10;
m = 10;

var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;

begin 

for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;

readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;

for i:=1 to n do
begin
 sum_row := sum_row + arr[i,row];
end;

for j:=1 to m do
begin
 sum_column := sum_column + arr[column, j];
end;

writeln(sum_column);
writeln(sum_row);

end.

Не проверено. Написал сходу в окне.