Сортировка и перестановка

[NxM]

ЗАДАЧА НА КУРСОВУЮ Я ВАЩЕ НЕ ШАРЮ ПЛИЗ ХЕЛП!!!
Составить программу сортировки по возрастанию столбцов матрицы А размером NxM.переставить местами 1-ю и N-ю строки матрицы.

From Stilet:Хочеш четкой помощи - называй темы правильно. Ато ведь удалить могу.

[Lerik]

а сортировки по возрастанию по сумме в столбце?

[NxM]

у вопроса должен быть ответ, может другим поможет.....

program Zadacha;                                                              
const m=3;                                                                    
n=4;                                                                          
var                                                                           
b:array[1..m,1..n] of integer;                                                
c,k,i,j:integer;                                                              
s:real;                                                                       
begin                                                                         
writeln('vvedi');                                                             
for i:=1 to m do begin                                                        
for j:=1 to n do read(b[i,j]);                                                
readln;                                                                       
end;                                                                          
for c:=1 to n do                                                              
for i:=2 to m do                                                              
for j:=m downto i do                                                          
begin                                                                         
if b[j,c]<b[j-1,c] then                                                       
begin                                                                         
k:=b[j-1,c];                                                                  
b[j-1,c]:=b[j,c];                                                             
b[j,c]:=k;                                                                    
end;                                                                          
end;                                                        
writeln;                                                                      
writeln('MATRIX');                                                            
writeln;                                                                      
for i:=1 to n do                                                              
begin                                                                         
k:=b[1,i];                                                                    
b[1,i]:=b[m,i];                                                               
b[m,i]:=k;                                                                    
end;                                                                          
for i:=1 to m do                                                              
begin                                                                         
for j:=1 to n do write(b[i,j]:7);                                             
writeln;                                                                      
end;                                                                          
readln;                                                                       
end.

сам правда чёт написал......

[puporev]

Составить программу сортировки по возрастанию столбцов матрицы А

У Вас некорректное условие, непонятно, по какому признаку возрастают столбцы, поэтому Вам задали конкретный и правомерный вопрос.

[NxM]

я сделал что сортировка в каждом столбце, а тичер пусть уж сам разбирается.....