Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в конце. Вычислите количество положительных элементов. через паскаль
NastyaDersen2004
3
26.02.2021 22:42
5
Другие вопросы по теме Информатика
timofee1999
07.07.2019 12:20
arsenpogosyan
07.07.2019 12:20
АлинаБречко
20.10.2020 03:29
kurroro
20.10.2020 03:29
соняпросоня
07.07.2019 15:40
Bellatrisa
05.05.2021 09:26
chelikteliklol
05.05.2021 09:26
alexeremka
05.05.2021 09:26
mansya01
12.12.2020 04:58
Популярные вопросы
- 1. a train is than a bus.(fast) 2. this text is the of all.(big) 3. i was...
1 - Самка и самец вместе строят гнездо и высиживают яйца,а потом вместе заботятся...
1 - 30 ! укажите черты сходства и черты различия высокой зональности и саван....
2 - Часть 2 1.решить уравнение 4,6х+3,8х-1,6=0,5 2.периметр прямоугольника =7,04м,...
2 - Разложить на множители 4аb кубе минус а в кубе b...
3 - Фоторамка стоит 140 рублей. какое наибольшее число таких рамок можно будет...
1 - Один из углов, которые получаются при пересечение двух параллельных прямых...
2 - Указать номера верных утверждений а)сумма вертикаоьных углов = 180 градусов...
1 - Значение понятий: патриции, плебеи, республика, консул, право вето , легион,...
2 - Сочинение на укр языке про технику безопасности в лесу весной...
2
var
a :array of integer;
n : integer;
begin
Read(n);
a := ArrRandomInteger(n, -100, 100);
writeln(a);
a := a.SortedDescending().ToArray();
writeln(a);
end.
Вот результат для 20 элементов :