Помготи сделать задачу в трёмерном (или двумерном) массиве

[DiJ]

У меня такая задача: Задан массив A[1..5,1..6] Нужно вывести нормальный массив и ещё потом с обработкой, т.е. поменять первый и последний столбец местами.
Вот такая задачка как это сделать... помогите плиззз, мне нужно это в Паскале.

[DiJ]

Что никто не поможет??!!

[Хыиуду]

Создать массив из 6 элементов, в него перегнать все элементы 1 столбца, потом в 1 столбец перегнать элементы последнего, потом в последний - из массива.

[DiJ]

А как? Код можешь подсказать?

[BHy4ok]

Можно конечно немного упростить и сделать так как сказал "Хыиуду". Но так тоже можно:
[syntax='Pascal']
uses
Crt;
var
a,b: array[1..100,1..100] of integer;
n,i,j: integer;
begin
ClrScr;
write('vvedite random-> '); read(n); // Числа записываются в беспорядке от 0 до "n" (для красоты 0 - 9)
writeln;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
a[i,j]:=random(n);
b[i,1]:=a[i,1];
b[i,6]:=a[i,6];
end;
end;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
write(a[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
a[i,1]:=b[i,6];
a[i,6]:=b[i,1];
write(a[i,j],' ');
end;
writeln;
end;
readln;
readln;
end.
[/syntax]