преоброзование массива, помогите плиз Опции

[goatsee]

как из 2х мерного массива, сделать 1мерный, если размеры совтадают??? жду ответа, буду сидеть до утра=(

[goatsee]

volvo супер 2рой вариант сработал=)
один вопрос остался

Код

program practuka;
uses crt;
type
  arr_2d=  array[1 .. 2, 1 .. 2] of integer;
  arr_1d=  array[1 .. 4] of integer;
var  f: text; x,i,j:integer;
mx: arr_2d;
arr: arr_1d absolute mx;
begin
assign(f, 'matr.txt');
rewrite(f);
clrscr;
begin
for i:=1 to 4 do
begin
write('3HA4EHUE',i,':');
read(arr[i]);
writeln;
end;
end;
for j := 1 to 4 do
for i := 1 to 4 do
if arr[i]<arr[i+1] then
begin
x:=arr[i];
arr[i]:=arr[i+1];
arr[i+1]:=x;
end;
writeln;
for i:=1 to 4 do
writeln(f,'(',arr[i],')','(',i,',',j,')'); {в файле выводятся координаты}
close(f);
end.

проблема в том, что координаты с 1мевого массива, как переделать что б в файле записывались координаты 2мерного массива
пример:
1 2
3 5
выводит:
(5)(1,4)
(3)(2,4)
(2)(3,4)
(1)(4,4)
а надо
(5)(2,2)
(3)(2,1)
(2)(1,2)
(1)(1,1)

[hiv]

один вопрос остался
проблема в том, что координаты с 1мевого массива, как переделать что б в файле записывались координаты 2мерного массива

Подумай хорошенько над этим!

Код

...
for j := 1 to 4 do {зачем тебе этот цикл, ведь j потом нигде не используется}
for i := 1 to 4 do
if arr[i]<arr[i+1] then {при i=4, чему будет равен arr[i+1]}
begin
x:=arr[i];
arr[i]:=arr[i+1]; {аналогично предыдущему}
arr[i+1]:=x;       {аналогично предыдущему}
end;
...