Question

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

Answer 1

Ответ:

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 элементов :