Переставить столбцы в порядке возрастания первых элементов столбцов - Pascal ABC

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

задан двумерный массив (nxm). переставить столбцы в порядке возрастания первых элементов столбцов

Код к задаче: «Переставить столбцы в порядке возрастания первых элементов столбцов - Pascal ABC»

textual
repeat
write('Количество строк n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов m=');
readln(m);
until m in [1..mmax];
writeln('Введите элементы матрицы, целые числа');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    c[i,j]:=random(100);
    write(c[i,j]:3);
   end;
  writeln;
 end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ