Задача по информатике двумерные массивы, язык паскаль.

Question

Дана матрица размерности N на M. В матрице найти первый по порядку столбец с минимальной суммой модулей его элементов. Вывести его номер.

Екатерина Асеева · Accepted Answer

Вот так получается:

const m=3; n=4;
var a:array [1..m,1..n] of integer;
 i,j,min,nom, sum: integer;
begin
 for i:=1 to m do
 for j:=1 to n do
 read(a[i,j]);
 min:=0;
 for i:=1 to m do
 min:=min+a[i,1];
 nom:=1;
 for j:=2 to n do begin
 sum:=0; 
 for i:=1 to m do 
 sum:= sum+a[i,j];
 if sum<min then begin
 min:=sum;
 nom:=j;
 end;
 end;
 write(nom);
end.

Удачи! :)