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

Формулировка задачи:

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

Код к задаче: «Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки - Turbo Pascal»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.200 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы