Технический форум купить трафик таргетированный
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


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

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

Старый 26.03.2014, 10:17
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В данных обсуждениях должна содержаться важная информация для вас

Помогите решить задачи по информатике
Помогите, пожалуйста, решить задачи по информатике
Очень прошу, помогите, пожалуйста, решить задание курсовой работы по информатике
Две задачи по информатике: расстояние Хемминга и исправление ошибки в сообщении
Пожалуйста, помогите решить простую задачу по информатике в FORTRAN про массив

Старый 26.03.2014, 10:32   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,724
Сказал(а) спасибо: 197
Поблагодарили 367 раз(а) в 120 сообщениях
Репутация: 73797
По умолчанию

Цитата:
Сообщение от Сергей Жигули Посмотреть сообщение
Дан двухмерный массив из 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Метки
помогите пожалуйста

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:39.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.