Упорядочить массив, чтобы все положительные элементы стояли в начале, а все отрицательные и нули - в конце

@Вася195 · Регистрация: 15.03.2016

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

Заполнить массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли вначале массива, а все отрицательные и нули в конце. Вычислите количество положительных элементов.
пример
массив
20 -90 15 -34 10 0
результат
20 15 10 -90 -34 0
количество положительных элементов 3

@volvo · 23.09.2016, 14:25

Комментарий модератора

Вася195, прекрати темы дублировать. Есть одна тема - в ней и продолжай обсуждение, если что-то непонятно.

@Cyber_Monster_ · 23.09.2016, 23:15

Сообщение от Вася195

Не знаете, как в программах можно переделать вот такую строчку j:=1+Random(i+1);

Сообщение от Вася195

вот в этой программе надо её заменить

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program efw;
const n=10;
var i, j, t: integer;
* * a: array [1..n] of integer;
begin
*randomize;
*writeln('Массив:');
*for i:=1 to n do 
*a[i]:=i;
*for i:=n downto 2 do 
* begin
* *j:=1+random(i+1); 
* *t:=a[i];
* *a[i]:=a[j]; 
* *a[j]:=t;
* end;
*for i:=1 to n do 
*write(' ',a[i]);
*writeLn;
end.

Сообщение от Вася195

всё понятно, кроме той строчки. Преподаватель ни разу так не показывал, что можно решать. Или что-то тогда ещё необходимо изменять в программе, чтобы поменять не было токай строчки?

Сообщение от PascalABC.NET Справка

function Random(a, b: integer): integer;
Возвращает случайное целое в диапазоне от a до b

И что тут непонятно? Используйте справку почаще...

И плюс, если у вас вопросы по этой теме: Генерация случайной перестановки последовательности чисел от 1 до N
Задавайте их там.

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Вася195 0 / 0 / 0 Регистрация: 15.03.2016 Сообщений: 89

	Упорядочить массив, чтобы все положительные элементы стояли в начале, а все отрицательные и нули - в конце 21.09.2016, 13:32. Показов 5880. Ответов 21 Метки нет (Все метки) Заполнить массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли вначале массива, а все отрицательные и нули в конце. Вычислите количество положительных элементов. пример массив 20 -90 15 -34 10 0 результат 20 15 10 -90 -34 0 количество положительных элементов 3 0