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

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

26.05.2013, 15:44. Показов 3413. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
26.05.2013, 15:50 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
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.
1
5 / 5 / 0
Регистрация: 13.05.2013
Сообщений: 133
26.05.2013, 18:41  [ТС] 3
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2013, 18:41
Помогаю со студенческими работами здесь

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

Переставить элемента массива, так чтобы сначала было расположены все положительные элементы, потом все отрицательные
Всем добрый вечер! Есть задача: Кто знает как ее решить - помогите, с меня спасибо:)

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

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


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

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

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