Заполните массив случайными числами в интервале - вопрос №10010017122199 от islamkazirbaev 06.03.2023 11:48

Question

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

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