В двоичной матрице размером 10 х 10 (см. задание 7) найдите совпадающие строки
Вопрос посетителя
В двоичной матрице размером 10 х 10 (см. задание 7) найдите совпадающие строки
Ответ эксперта
type
matrix = array [1..5, 1..10] of byte;
var
a: matrix;
i, j, sum, nom, max: integer;
begin
randomize;
for i := 1 to 5 do
for j := 1 to 10 do
a[i, j] := random(2);
for i := 1 to 5 do
begin
for j := 1 to 10 do
write(a[i, j], ‘ ‘);
writeln;
end;
nom := 0;max := 0;
for i := 1 to 10 do
begin
sum := 0;
for j := 1 to 5 do
begin
if a[j, i] = 0 then
begin
inc(sum);
end;
end;
if sum > max then
begin
nom := i;
max := sum;
end;
sum := 0;
end;
writeln(‘номер столбца ‘, nom);
end.