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

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

08.04.2016, 17:44. Показов 1431. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Перестановка. В массиве X[1:n] каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы сначала располагались все нули, затем единицы и, наконец, все двойки (дополнительного массива не заводить). 1<=n<=30. Входные данные: в первой строке записано целое число n, во второй строке последовательность чисел через пробел. Выходные данные: в единственной строке записать последовательность чисел как требует задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var 
x: Array of Byte; 
i,j,tmp,n: Byte; 
BEGIN 
readln(n); 
setlength(x,n); 
Writeln('Исходный массив:'); 
For i:=0 to n-1 do 
read(x[i]); 
begin 
For j:=i+1 to n-1 do 
If x[i]>x[j] Then 
begin 
tmp:=x[i]; 
x[i]:=x[j]; 
x[j]:=tmp 
end; 
end; 
Writeln; 
Writeln('Полученный массив:'); 
for i:=0 to n-1 do 
write(x[i],''); 
END.
Почти сделал, но где-то здесь ошибка, и он не меняет массив как требует сама задача

Добавлено через 16 минут
Решил.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2016, 17:44
Ответы с готовыми решениями:

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

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

Заполнить массив Y так, чтобы сначала располагались отрицательные, а затем положительные элементы массива X
Заполнить массив Y так, чтобы сначала располагались отрицательные, а затем положительные элементы...

Расположить элементы массива так, чтобы в начале располагались все отрицательные элементы, а затем положительные.
Расположить элементы массива так, чтобы в начале располагались все отрицательные элементы, а затем...

1
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.04.2016, 18:38 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
var x: array of byte; 
    i,j,tmp,n: byte; 
begin 
randomize;
readln(n); 
setlength(x,n); 
writeln('Исходный массив:'); 
for i:=0 to n-1 do 
 begin
  x[i]:=random(3);
  write(x[i],' ');
 end;
writeln; 
for i:=0 to n-2 do
for j:=i+1 to n-1 do 
If x[i]>x[j] Then 
 begin 
  tmp:=x[i]; 
  x[i]:=x[j]; 
  x[j]:=tmp 
 end; 
writeln('Полученный массив:'); 
for i:=0 to n-1 do 
write(x[i],' '); 
end.
0
08.04.2016, 18:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2016, 18:38
Помогаю со студенческими работами здесь

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

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

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

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

Переставить элементы массива так, чтобы сначала располагались все 2, потом 3, затем все 4 и, наконец, все 5
В Массиве X(5,7), Каждый элемент равен 2,3,4 или 5 переставить элементы массива так чтобы сначала...

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


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

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

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