GAECHKA
Твоя помощница в решении задач

Массив: Найти номера столбцов, элементы в каждом из которых одинаковы.

Задан двумерный массив целых чисел размером n*m Найти номера столбцов, элементы в каждом из которых одинаковы. Если можно с пояснением
0
вопрос задан

Источник


2 ответа
Решение
ZX Spectrum-128,
можно было сравнивать с первым
    for i := 2 to n do 
      if a[1, j]  a[i, j] then
Добавлено через 3 минуты
Можно обойтись без отдельного флага
for j:=1 to m do begin
  i:=n; while (i>1) and (a[1,j]=a[i,j]) do Dec(i);
  if i=1 then WriteLn('Столбец ',j);
end;
const
  n = 7;
  m = 8;
 
var
  a: array[1..n, 1..m]of integer;
  i, j: integer;
  f: boolean;
 
begin
  writeln('Исходная матрица: ');
  for i := 1 to n do
  begin
    for j := 1 to m do 
    begin
      a[i, j] := j;
      //-m div 2 + random(n);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for j := 1 to m do
  begin
    f := true;
    for i := 1 to n - 1 do 
      if a[i + 1, j]  a[i, j] then 
      begin
        f := false;
        break;
      end;
    if f then 
      writeln(j, ' столбец');
  end;
end.