Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2009, 14:40   #1
Nastya123
 
Регистрация: 12.04.2009
Сообщений: 8
По умолчанию Подскажите как решить задачу на Delghi

Дан одномерный целочисленный массив из 10 столбцов. Нужно упорядочить элементы массива таким образом, чтобы сначала шли элементы с нечётными номерами, а затем с чётными.Подскажите, пожалуйста, как это сделать.
Nastya123 вне форума Ответить с цитированием
Старый 19.04.2009, 18:27   #2
AlexanderKs
Пользователь
 
Регистрация: 26.02.2009
Сообщений: 60
По умолчанию

Код:
var
ak,kon,i,c:integer;
mas:array [1..10] of integer;

................

 c:=2;
 i:=c;
 kon:=9;
   while kon>=6 do begin
      ak:=mas[i];
      mas[i]:=mas[i+1];
      mas[i+1]:=ak;
      if i<>kon-1 then i:=i+2
        else begin
          c:=c+1;
          i:=c;
          kon:=kon-1;
        end;
   end;
mas - массив, элементы которого нужно поменять местами.
AlexanderKs вне форума Ответить с цитированием
Старый 20.04.2009, 11:13   #3
Nastya123
 
Регистрация: 12.04.2009
Сообщений: 8
По умолчанию

Большое спасибо за помощь
Nastya123 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как решить задачу по QBasic pavelewseew Помощь студентам 2 27.01.2009 14:27
как решить задачу по Delphi? Defender42 Помощь студентам 1 27.12.2008 18:24
Паскаль. Подскажите пожалуста как решить эту задачу. svobodys Помощь студентам 10 04.11.2008 14:10
Как решить задачу? BETONOMESHALKA Общие вопросы Delphi 8 04.11.2007 00:19