Дан двумерный массив целых чисел, содержащий n строк и m столбцов. Упорядочить массив по возрастанию элементов k-го столбца.
program sort_n29;
var a:array[1..100,1..100] of integer;
i,j,n,k,m,j1,l,min,b:integer;
begin readln(n,k);
for i:=1 to n do
for j:=1 to k do
readln(a[i,j])
readln(j1);
for i:=n downto 1 do
begin min:=a[i,j1];
for l:=1 to i-1 do
if min>a[i,j1] then
begin for m:=1 to n do
begin b:=a[m,j1];
a[m,j]:=a[m,j];
min:=a[i,j1];
Ты чегото нето вообще пишешь. к-номер столбца, а не размер таблицы, в первом цикле должны быть м и н.
Что такое джейл?Или у тебя н-н,м-к,а к соответоствует джейл? Воодщем, непонятно.Водщем я бы порекомендовал писать так:
MAXXX, СПАСИБО всё работает!