Program prog;
uses crt;
const N=8; M=4;
var i,j, sum, max, ind: integer;
C: array [1..N, 1..M] of integer;
BEGIN
RANDOMIZE;
max:=0;
FOR i:=1 to N do BEGIN
FOR j:=1 to M do BEGIN
C[i,j]:=Random(10);
WRITE(C[i,j],' ');
END;
WRITELN;
END;
WRITELN;
// находим столбец с максимальной суммой элементов
FOR j:=1 to M do BEGIN
sum:=0;
FOR i:=1 to N do BEGIN
if C[i,j]<>0 then sum:=sum+C[i,j]
else break;
END;
if sum>max then BEGIN
max:=sum; ind:=j;
END;
WRITELN(i,'-ый столбец. Сумма: ', sum);
END;
WRITELN;
WRITELN('Максимальная сумма: ', max,' в(о) ', ind, ' столбце');
END.