задача с матрицами на pascal abc

[ТипичныйСтудент]

Дана матрица N*M, где N<M. Привести ее к квадратному виду (N*N) оставив только максимальные элементы. Столбцы можно менять местами.
Пример:
2 8 9 5 6
7 6 3 8 4
9 1 3 2 5
ответ
9 8 6
8 7 6
9 5 3
________________________________
Прошу помощи, задача с олимпиады. Как я понимаю, мы либо находим минимальный элемент по строке и удаляем его, либо выбираем максимальный и копируем в новую матрицу. Но я не представлю, как прописать это циклом, ведь размер произвольный.

[BDA]

Судя по ответу, в матрице сортируются элементы по строкам, а затем отбрасывается нужное количество в конце строки (выводятся только первые N элементов).
Обычно в задачах указываются ограничения на M и N.

Сообщение от ТипичныйСтудент

сказала же в теме, что pascal abc

Это моя стандартная подпись (как у Вас "Есть задача - реши ее!").

Сообщение от ТипичныйСтудент

в условии прописано, что N и M произвольные, ну скорее всего не больше 10, но конкретно это не оговаривается

Если задание, и правда, с олимпиады, то 10 слишком мало 100 или 1000 уже более реальны.
Не пишу на Pascal ABC, так что практических советов дать не могу (только теоретические).
Нужен накопитель для N элементов (чтобы вставлять текущий элемент строки матрицы в него, а потом все элементы накопителя ввести) или накопитель на M элементов (считываем M элементов, сортируем, выводим первые N).
Все это происходит в цикле, который последовательно обрабатывает таким образом всю матрицу.
Если в Pascal ABC есть динамический массив, то им будет удобно воспользоваться.
Задать ему размер M, считывать в него матрицу построчно, сортировать (быструю сортировку придется реализовать, скорее всего, самому) и выводить первые N элементов.
Собственно, весь код:

uses
  Containers;
var
  a: intArray;
  m, n, i, j, k: integer;
begin
  readln(n, m);
  a := intArray.create(m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      read(k);
      a.put(j, k);
    end;
    a.sort;
    for j := m downto m - n + 1 do
      write(a.get(j), ' ');
    writeln;
  end;
  a.destroy;
end.

[ТипичныйСтудент]

ууупс =)
в условии прописано, что N и M произвольные, ну скорее всего не больше 10, но конкретно это не оговаривается,
не могли бы пример кода показать??
________________
мда) спасибо, пробовать буду

и еще задача, оттуда же)
Вводим строку символов (для примера: абс), найти факториал числа количества введенных символов (с этим проблем нет) и вывести это количество различных комбинаций символов без повторений. (пример: 3!=6, авс, асв, вас, вса, сав, сва). Вот этот вот вывод как сделать?

[BDA]

http://programmersforum.ru/showpost....10&postcount=5
ПС Код первой задачи выше

[ТипичныйСтудент]

спасибо большое