Developing.ru

Код: Выделить всё

Константа N = 100;
Константа M = 10;

Массив Arr[N][M];

Считать(Arr);

Цикл по i от 0 do N-1
{
   Print = истина;

   Цикл по j от 0 до N-1
   {
      // В этом месте i - это индекс текущей строки, а j - индекс подбираемой строки.
      // Печатаем или пропускаем строку мы исключительно по индексу i, индекс j используется только для
      // для определения есть ли ещё строки с таким шифром или нет.

      Если (i не равно j) // это условие необходимо, чтобы мы не сравнивали строку с самой собой
      и (Arr[i][0] равно Arr[j][0]) // проверка равенства шифров текущей и подбираемой строки
      {
         // Если шифры равны, то задача проверить равны ли все характеристики
 
         column = 1;
         Цикл пока column < M
         {
            Если (Arr[i][column] не равно Arr[j][column])
            {
               Прервать цикл;
            }
            Инкремент column;
         }

         Если (column не равно M) // значит найдены неравные характеристики
         {
            Print = ложь;
            Прервать цикл;
         }
      }
   }

   Если (Print)
   {
      Напечатать строку i;
   }
}