Заполните массив случайными числами в интервале - вопрос №17121631100100 от harlamovegor20ow49y3 18.02.2021 12:12

Question

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

harlamovegor20ow49y3 · Answer

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