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

@гул · Регистрация: 09.05.2012

Студворк — интернет-сервис помощи студентам

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

@Lilu666 · 17.05.2012, 12:03

Ну проще всего сделать сортировку "пузырьком", но можно и вот так:

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.

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

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

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

Опции темы

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

Решение