Прошу помощи по двумерным массивам
Помогите пожайлуста!
В заданной матрице А (n х n) найдите минимум всех сумм абсо-
лютных величин элементов матрицы по столбцам. Для нахождения
суммы абсолютных величин столбца используйте подпрограм-
му-функцию
В заданной матрице А (n х n) найдите минимум всех сумм абсо-
лютных величин элементов матрицы по столбцам. Для нахождения
суммы абсолютных величин столбца используйте подпрограм-
му-функцию
program Project;
uses
SysUtils;
CONST
n = 10;
VAR
a : array [1..n+1,1..n] of integer;
i,j :integer;
begin
{ЗАПОЛНЕНИЕ и ВЫВОД МАССИВА}
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j],' ');
end;
writeln;
end;
writeln;
{ПОДСЧЕТ И ВЫВОД СУММЫ}
for j:=1 to n do
begin
for i:=1 to n do
a[n+1,j] := a[n+1,j] + a[i,j];
write(a[n+1,j],' ');
end;
readln;
end.
uses
SysUtils;
CONST
n = 10;
VAR
a : array [1..n+1,1..n] of integer;
i,j :integer;
begin
{ЗАПОЛНЕНИЕ и ВЫВОД МАССИВА}
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j],' ');
end;
writeln;
end;
writeln;
{ПОДСЧЕТ И ВЫВОД СУММЫ}
for j:=1 to n do
begin
for i:=1 to n do
a[n+1,j] := a[n+1,j] + a[i,j];
write(a[n+1,j],' ');
end;
readln;
end.