В двоичной матрице размером 10 х 10 (см. задание 7) найдите

type
nbsp;nbsp;matrix = array [1..5, 1..10] of byte;
nbsp;
var
nbsp;nbsp;a: matrix;
nbsp;nbsp;i, j, sum, nom, max: integer;
nbsp;
begin
nbsp;nbsp;randomize;
nbsp;nbsp;for i := 1 to 5 do
nbsp;nbsp;nbsp;nbsp;for j := 1 to 10 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;a[i, j] := random(2);
nbsp;nbsp;for i := 1 to 5 do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;for j := 1 to 10 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(a[i, j], );
nbsp;nbsp;nbsp;nbsp;writeln;
nbsp;nbsp;end;
nbsp;nbsp;nom := 0;max := 0;
nbsp;nbsp;for i := 1 to 10 do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;sum := 0;
nbsp;nbsp;nbsp;nbsp;for j := 1 to 5 do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if a[j, i] = 0 then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;inc(sum);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;if sum gt; max then
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nom := i;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;max := sum;
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;sum := 0;
nbsp;nbsp;end;
nbsp;nbsp;writeln(номер столбца , nom);
end.