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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2010, 15:48   #1
bles
Пользователь
 
Регистрация: 29.01.2008
Сообщений: 26
По умолчанию Перестановка в 1-ом массиве

Привет всем ! помогите пожалуйста сделать одну задачку:

Дан массив X[n] заполненный 0,1 и 2 переставить элементы массива так, что бы сначала были 1, потом 2 и в конце 0.

Заранее спасибо !
bles вне форума Ответить с цитированием
Старый 04.06.2010, 16:01   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Код:
buff:=X[1];
for i:=2 to n do
  X[i-1]:=X[i];
X[n]:=buff;
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 04.06.2010, 16:06   #3
DoDge_VipeR
Форумчанин
 
Аватар для DoDge_VipeR
 
Регистрация: 30.04.2010
Сообщений: 317
По умолчанию

Код:
const n = 15;
var a:array[1..n] of Byte;
 i:integer;
 k:Integer;
 z,p:byte;
 begin
  Randomize;
 for i := 1 to n  do begin
   a[i]:=Random(3);
  write(a[i]:3);
  end;
k:=1;
z:=1;
 for p := 1 to 2  do
 begin
 for I := z to n  do
   if a[i]=p then
   begin
     a[i]:=a[k];
     a[k]:=p;
     k:=k+1;
   end;
 z:=k;
 end;
  Writeln;
  for i := 1 to n  do begin
  write(a[i]:3);
  end;
  readln;
end.
icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!

Последний раз редактировалось DoDge_VipeR; 04.06.2010 в 16:14.
DoDge_VipeR вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перестановка цифр Sanek_ntsk Общие вопросы Delphi 1 11.01.2010 00:53
Перестановка единицы RIO Общие вопросы Delphi 1 26.10.2009 15:30
Перестановка чисел в массиве в обратном порядке Student117 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 22.10.2009 06:14
Перестановка столбцов bagfinder Паскаль, Turbo Pascal, PascalABC.NET 1 25.06.2009 19:28
Перестановка Roman Помощь студентам 3 29.04.2007 05:37