одномерный массив,с элементами двухмерного ммассива

[dark064]

Дан массив A(N,N).Сформировать одномерный массив,сoстоящий из элементов двухмерного массива,расположенных в порядке возрастания(используя метод адресной сортировки)

[Sm1Le]

Ты хоть сам понял что написал ? ! - =)))))))
Я нет ...
Единственное что могу сам додумать

Есть два массива одномерный и двумерный по какому то принципу из 2- мерного выбираются элементы и записываются в 1-мерный ... и сортировка ...

[dark064]

все исправил..

[Sm1Le]

метод адресной сортировки- что от я не могу найти данной сортировки с описанием =(

[dark064]

вот пошарил по книгам,в инете получил вот такое..

CONST N=10;
TYPE vector =array[1..N] of Word;
CONST massiv_ishodn :vector =(3,8,4,7,20,2,30,5,6,9);
VAR massiv_rezult :vector;
i:Word;
FUNCTION maximum (m:vector; N:Word; var Nomer_max: Word):Word;
VAR i,max:Word;
BEGIN
max:=m[1]; Nomer_max:=1;
for i:=2 to N do if max<m[i] then begin max:=m[i];Nomer_max:=i end;
maximum:=max
END;
PROCEDURE sortirovka (mass_ish:vector; N:Word; var mass_rez:vector);
VAR i, Nom_max:Word;
BEGIN
for i:=1 to N do begin
mass_rez[N+1-i]:=maximum(mass_ish, N, Nom_max);
mass_ish[Nom_max]:=0
end;
END;
BEGIN
sortirovka (massiv_ishodn, N, massiv_rezult);
for i:=1 to N do Write (massiv_rezult[i],' ');
END.


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

[Impario]

http://www.programmersforum.ru/showthread.php?t=34574
program pr98;
uses crt;
var a,ak,b,bk,k,n:integer;
begin
clrscr;
writeln('vveditem konechnoe znachenie');
readln(n);
a:=1;
b:=1;
ak:=0;
bk:=0;
for k:=2 to n do
begin
for k:=n to k-1 do
a:=a*k;
b:=b*k;
ak:=(3*b)+(2*a);
ak:=ak*k;
end;
for k:=n to k-1 do
begin
a:=a*k;
b:=b*k;
bk:=(2*a)+b;
bk:=bk*k;
end;
writeln('ak=',ak:6);
writeln('b=',bk:6);
readln;
end.
плиз посмотрите

[dark064]

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

http://www.programmersforum.ru/showthread.php?t=34574
program pr98;
uses crt;
var a,ak,b,bk,k,n:integer;
begin
clrscr;
writeln('vveditem konechnoe znachenie');
readln(n);
a:=1;
b:=1;
ak:=0;
bk:=0;
for k:=2 to n do
begin
for k:=n to k-1 do
a:=a*k;
b:=b*k;
ak:=(3*b)+(2*a);
ak:=ak*k;
end;
for k:=n to k-1 do
begin
a:=a*k;
b:=b*k;
bk:=(2*a)+b;
bk:=bk*k;
end;
writeln('ak=',ak:6);
writeln('b=',bk:6);
readln;
end.
плиз посмотрите

как я понял это пример,как мне доделать массив?