Программирование на Pascal, работа с массивами.

[Reine]

Добрый вечер многоуважаемые программисты! Окажите пожалуйста помощь при допуске к зачету. В задании требуется в каждом столбце заданной квадратной матрицы, например 4 на 4, расположить элементы в порядке убывания. Пытался сортировать, но моих навыков к сожалению не хватает. Собственно если кому-то нужна помощь по химии обращайтесь. Заранее Спасибо!

[ROMA2PVT]

Uses
   CRT;
var
    a:array[1..100,1..100] of integer;
    tex,n,m,i,j,k:integer;
begin
clrscr;
randomize;
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов=');
readln(n);
writeln('Исходная матрица: ');
for i:=1 to m do
 begin
  for j:=1 to n do
  begin
   a[i,j]:=random(10)-2;
   write(a[i,j]:2,' ');
  end;
 writeln;
end;
writeln;
for j:=1 to n do
for i:=1 to m-1 do
for k:=i+1 to m do
if a[i,j]<a[k,j] then
 begin
  tex:=a[i,j];
  a[i,j]:=a[k,j];
  a[k,j]:=tex;
 end;
writeln('Результирующая матрица: ');
for i:=1 to m do
 begin
  for j:=1 to n do
  begin
  write(a[i,j]:2,' ');
  end;
  writeln;
 end;
readkey;
end.

P.S:химия не нужна.

[Reine]

спасибо, сейчас опробуем.

[Reine]

Всё работает спасибо.

[Dukem]

Спасибо полезная информация..