Указать столбцы матрицы, содержащие одинаковый набор элементов - Pascal ABC

Формулировка задачи:

Матрица размерностью n×n, содержащая простые числа, записана в файле по строкам. Указать столбцы, содержащие одинаковый набор элементов (порядок следования элементов роли не играет). Использовать дополнительные массивы и файлы не разрешается. Прошу помочь с задачей..дедлайн...

Код к задаче: «Указать столбцы матрицы, содержащие одинаковый набор элементов - Pascal ABC»

textual
CONST N=4;
var
  a:array[1..n,1..n] of integer;
  i,j,k,l:integer;
  ok,ok1:boolean;
begin
  assign(input,'in.txt');
  reset(input);
  for i:=1 to n do 
    for j:=1 to n do read(a[i,j]);
  for j:=1 to n do begin
    for i:=1 to n-1 do 
      for k:=i to n do 
        if a[i,j]>a[k,j] then begin l:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=l;end;
  end;
  for j:=1 to n-1 do 
    for k:=j+1 to n do begin
      ok:=true;
      for i:=1 to n do if a[i,j]<>a[i,k] then ok:=false;
      if ok then begin writeln('Столбец ',j,' содержит те-же элементы,что и столбец ',k);ok1:=true;end;
     end;
     if not ok1 then writeln('Столбцы содержащие одинаковые элементы отсутствуют!');
   close(input);  
end.

12   голосов, оценка 4.417 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы