двумерный массив

[adaptes]

помогите пожалуйста! нужно составить программу:

которая для введенного числа N формирует двумерный массив заданного в варианте вида. В задании дан массив для N = 4.

Упорядочить массив по убыванию элементов в каждом столбце. Результат напечатать.
Печать и задания оформить в виде процедур.

[Mad_Cat]

Язык программирования укажите

заданного в варианте вида

и да - телепаты и экстрасенсы в отпуске

[adaptes]

она задана в виде матрицы 4 на 4.
язык программирования - delphi

[ZX Spectrum-128]

Сообщение от adaptes

она задана в виде матрицы 4 на 4.
язык программирования - delphi

Не о том вас спросили. Матрица задается по правилу, которое написано в варианте задания. Вариант где?

[adaptes]

Мне нужно чтобы я сам вводил данные в матрицу

[ZX Spectrum-128]

for i=1 to n do
  For j:=1 to n do
    Readln(mas[i,j]);

[adaptes]

вот я вроде составил программу, но мне надо сделать так чтобы все элементы упорядочились в столбцах по убыванию

program Project6;
{$APPTYPE CONSOLE}
uses
  sysutils,
  windows;
label sle;
const n=4;
par=(n*4);
type matriz=array[1..n,1..n] of integer;
var i,j:integer;
mas:matriz;
im:array[1..par] of integer;
procedure vvod(var vmas:matriz);
begin
setconsolecp (1251);
setconsoleoutputcp (1251);
writeln('вводим элементы массива. расмерность [',n,',',n,']');
for i:=1 to n do
for j:=1 to n do
begin
write('введите элемент [',i,',',j,']=');
readln(vmas[i,j]);
end;
end;
procedure print(vmas:matriz);
begin
writeln('ваш массив имеет вид');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',vmas[i,j],' ');
end;
writeln;
end;
end;
begin
vvod(mas);
print(mas);
writeln('программа закончена. нажмите enter.');
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.