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

@Non4a · Регистрация: 22.09.2011

Ребят помогите пожалуйста

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

Заранее человеческое спасибо!

@КонецСвета · 17.12.2011, 22:51

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax]of integer;
    n,i,k,j,buf:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(3);
  write(a[i],' ');
 end;
writeln;
k:=0;
for i:=1 to n do
if a[i]=1 then
  begin
    k:=k+1;
    buf:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=buf;
  end;
for i:=k to n do
if a[i]=2 then
  begin
    k:=k+1;
    buf:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=buf;
  end;
writeln('Перестановка');
for i:=1 to n do
write(a[i],' ');
readkey
end.

@Non4a 0 / 0 / 0 Регистрация: 22.09.2011 Сообщений: 26
		1
	Переставить элементы массива так, чтобы сначала располагались все единицы, затем все двойки и, наконец, все нули 17.12.2011, 22:38. Показов 1932. Ответов 1 Метки нет (Все метки) Ребят помогите пожалуйста В массив x(N) каждый элемент равен 0,1 или 2. Приставить элементы массива так, чтобы сначала располагались все единицы, затем все двойки и, наконец, все нули (дополнительные массивы не заводить) Заранее человеческое спасибо! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение