Массив на могу решить

[enot27]

Уважаемые програмисты,помогите решить задачку...дан массив 5х5,заполненный числами от 1 до 25 по порядку!!нужно написать программу,которая выводила бы массив в виде волны:
1 10 11 20 21
2 9 12 19 22
3 8 13 18 23
4 7 14 17 24
5 6 15 16 25
Как это сделать???

[Sm1Le]

Просто выводить 2 мерный массив умеете ?

[enot27]

Да я вообще паскаль знаю на твёрдую 2)Подскажи,если можешь,плиззз

[puporev]

uses crt;
var a:array[1..5,1..5] of byte;
    i,j:integer;
begin
clrscr;
for j:=1 to 5 do
for i:=1 to 5 do
if odd(j) then a[i,j]:=5*(j-1)+i //если нечетный столбец
else a[i,j]:=5*j+1-i;  //если четный столбец
for i:=1 to 5 do
   begin
     for j:=1 to 5 do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.

[enot27]

Puporev,Sm1Le,большое вам спасибо,если бы не вы меня бы препод покусал