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

Сергей Жигули · 26.03.2014, 10:17

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

Vladimir_S · 26.03.2014, 10:32

Цитата:

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

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

Легко:

Код:

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.

26.03.2014, 10:17	#1 (permalink)
Сергей Жигули Новичок Регистрация: 26.03.2014 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача по информатике Дан двухмерный массив из 12 строк.Переставить строки так,чтобы они располагались следующим образом:первая,двенадцатая,вторая,одиннадцатая,... .,пятая восьмая,шестая, седьмая. На Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070