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

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


textual

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

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



Похожие ответы
  1. Дана матрица nxm, отсортировать столбцы матрицы по убыванию значений элементов в строке с номером, заданным пользователем. Вопрос жизни и смерти! Заранее спасибо!

  1. Дана последовательность целых чисел a1,a2...an. Указать пары чисел ai,aj. Таких, что ai +aj=m.

  1. дана строка. указать те слова, которые содержат хотя бы одну букву k

  1. Задача. Среди всех двузначных чисел указать те, сумма цифр которых равна заданному числу N. Помогите написать.

  1. Дана квадратная матрица порядка n. Как строки со столбцами удалять из матрицы?

  1. Дана матрица A[1..n,1..m] целых чисел. Напишите программу, которая переставит столбцы матрицы А таким образом, чтобы элементы последней строки стали упорядоченными в убывающем порядке. Для упорядочивания использовать метод сортировки посредством выбора и новую матрицу. Полученную матрицу вывести на экран.

  1. Удалите все столбцы, в которых находится минимальный элемент, а затем строки, в которых больше одного максимального элемента. Если такого столбца или строки нет, то вывести сообщение об этом.

  1. Мне нужна расположить столбцы матрицы по росту элементов второй строки (сортировка выбором). Я не знаю как эта записать Пример: Исходный массив: 7 4 2 8 6 4 1 5 8 6 5 2 4 8 2 9 Результирующий массив: 2 4 8 7 1 4 5 6 5 6 2 8 2 8 9 4

  1. 1.2)вывести любой символ , определить его порядковый номер и указать его предыдущий и последний символы

  1. Дан двумерный массив 5х6 поменять местами средние столбцы. Желательно с процедурами init,print,swap. Пример 1 2 3 4 5 6 9 8 7 6 5 4 5 4 8 3 8 9 ответ 1 2 4 3 5 6 9 8 6 7 5 4 5 4 3 8 8 9