Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в конце. Вычислите количество положительных элементов.
через паскаль
через паскаль
More Questions From This User See All
Answers & Comments
Ответ:
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 элементов :