Технический форум - Задача по информатике

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Задача по информатике (http://www.tehnari.ru/f43/t95434/)

Задача по информатике

Дан двухмерный массив из 12 строк.Переставить строки так,чтобы они располагались следующим образом:первая,двенадцатая,вторая,одиннадцатая,... .,пятая восьмая,шестая, седьмая. На Паскаль

Цитата:

Сообщение от Сергей Жигули (Сообщение 1019230)

Легко:

Код:

Var

 A:Array[1..12,1..16] of Integer;

 i,j:Byte;

Begin

 Randomize;

 for i:=1 to 12 do

  begin

   for j:=1 to 16 do

    begin

     A[i,j]:=-10+Random(100);

     Write(A[i,j]:4);

    end;

   writeln;

  end;

 writeln;

 for i:=1 to 6 do

  begin

   for j:=1 to 16 do write(A[i,j]:4);

   writeln;

   for j:=1 to 16 do write(A[13-i,j]:4);

   if i<6 then writeln;

  end;

 Readln

End.