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

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

17.05.2012, 10:35. Показов 2916. Ответов 1
Метки нет (Все метки)

Тема Одномерные массивы
В массиве X(1:n) каждый элемент равен 0, 1 или 5. Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы, а затем все пятерки. Дополнительного массива не заводить.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2012, 10:35
Ответы с готовыми решениями:

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

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

Преобразовать массив так, чтобы сначала располагались все отрицательные элементы, а потом все положительные
ребят помогите срочно у мя экзамен!!!!!!!!!!!! Одномерный массив состоит из N вещественных...

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

1
35 / 35 / 30
Регистрация: 25.04.2012
Сообщений: 74
17.05.2012, 12:03 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
uses crt;
var n, i, s0, s1, s5: integer;
    ar: array [1..100] of integer;
begin
clrscr;
     randomize;
     write ('vvedi razmer massiva: '); readln (n);
     writeln('vvedite elementi 0, 1, ili 5');
     for i:=1 to n do begin
               write ('Ar[',i,'] = ');
               readln (ar[i]); end;
     for i:=1 to n do write (ar[i]:3); writeln;
     for i:=1 to n do
         case ar[i] of
              0: s0:=s0+1;
              1: s1:=s1+1;
              5: s5:=s5+1; end;
     for i:=1 to s0 do ar[i]:=0;
     for i:=s0+1 to s0+s1 do ar[i]:=1;
     for i:=s0+s1+1 to n do ar[i]:=5;
     for i:=1 to n do write (ar[i]:3);
readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2012, 12:03
Помогаю со студенческими работами здесь

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

Преобразовать массив так, чтобы сначала располагались все элементы, отличающиеся от макс не более чем на 20%
Дан одномерный массив, состоящий из N вещественных элементов. Преоброзовать массив таким образом,...

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

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


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

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

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