Var ma:array[1..n,1..n] of integer; i,j,max,maxj,a:integer; begin max:=-1; randomize; writeln('Matrix:'); for i:=1 to n do begin; for j:=1 to n do begin; ma[i,j]:=random(10); write(ma[i,j]:4); end; writeln; end; for j:=1 to n do begin for i:=1 to n do a:=a+ma[i,j]; if a>max then begin max:=a; maxj:=j; end; a:=0; end; write('Максимальный по сумме столбец:',maxj); end.
пальма попугай,
туловище,
, ствол, голова,
листья, клюв,
, мякоть крыло.
скорлупа перо,
орех,
молоко. хвост,
нога,