0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 26
1

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

17.12.2011, 22:38. Показов 1932. Ответов 1
Метки нет (Все метки)

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

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

Заранее человеческое спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2011, 22:38
Ответы с готовыми решениями:

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

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

Сформировать массив L из массивов A и B путем их слияния так, чтобы сначала располагались все элементы массива A, а затем все элементы массива B.
Задан массив A из N элементов и массив B из M элементов. Сформировать массив L из массивов A и B...

Переставить элементы массива так, чтобы сначала следовали все отрицательные числа, а затем все остальные
Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала...

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
17.12.2011, 22:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2011, 22:51
Помогаю со студенческими работами здесь

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

Массив. Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы
Тема Одномерные массивы В массиве X(1:n) каждый элемент равен 0, 1 или 5. Переставить элементы...

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

Переставить элементы массива так, чтобы сначала располагались все 0, затем 1, затем 2
Общие указания при составлении программ к данной теме: 1. Размер массива задать константой в блоке...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru