Массив.номер столбца имеющего наибольшую сумму элементов.

[luvky13]

задана матрица Х (NxM) определить номер столбца имеющего наибольшую сумму элементов.
помогите пож-та срочно

[Niro]

Что-то мне кажется что подобные задачи уже были на форуме - поиск
Алгоритм: проходитесь по столбцам массива запоминая сумму каждого столбца в ячейку другого одномерного массива
затем в полученном массиве ищете максимальный и усЁ
покатит?

[dunrovsky]

program q;
var
  a : array [1..100,1..100] of longint;
  b : array [1..100] of longint;
  i,j,str,st,s,mx : longint;
BEGIN
  readln(st,str);
  for i:=1 to str do
    for j:=1 to st do read(a[i,j]);
  for i:=1 to str do
     begin
	   for j:=1 to st do s:=s+a[j,i];
	   b[i]:=s;
	   s:=0;
     end;	
  mx:=b[1];
  for i:=1 to str do
     if b[i]>mx then mx:=b[i];
  writeln(mx);	 
END.