Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки

@kareglasaya · Регистрация: 13.05.2013

Помогите пожалуйста решить задачу: В массиве х(12) каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки.

Kodzaev · 26.05.2013, 15:50

Pascal

Var
  x: Array [1..12] of Byte;
  i,j,tmp: Byte;
BEGIN
Randomize;
Writeln('Исходный массив:');
For i:=1 to 12 do
begin
  x[i]:=Random(3);
  Write(x[i],' ');
end;
For i:=1 to 11 do
begin
  For j:=i+1 to 12 do
  If x[i]>x[j] Then
  begin
    tmp:=x[i];
    x[i]:=x[j];
    x[j]:=tmp
  end;
end;
Writeln;
Writeln('Полученный массив:');
For i:=1 to 12 do
Write(x[i],' ');
Readln
END.

@kareglasaya · 26.05.2013, 18:41 **[ТС]**

Спасибо!

@kareglasaya 5 / 5 / 0 Регистрация: 13.05.2013 Сообщений: 133
		1
	Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки 26.05.2013, 15:44. Показов 3413. Ответов 2 Метки нет (Все метки) Помогите пожалуйста решить задачу: В массиве х(12) каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@kareglasaya 5 / 5 / 0 Регистрация: 13.05.2013 Сообщений: 133
	26.05.2013, 18:41 [ТС]	3
	Спасибо! 0

Опции темы

Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки

Решение