Указать столбцы матрицы, содержащие одинаковый набор элементов - Pascal ABC
Формулировка задачи:
Матрица размерностью n×n, содержащая простые числа, записана в файле по строкам. Указать столбцы, содержащие одинаковый набор элементов (порядок следования элементов роли не играет). Использовать дополнительные массивы и файлы не разрешается.
Прошу помочь с задачей..дедлайн...
Решение задачи: «Указать столбцы матрицы, содержащие одинаковый набор элементов»
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.