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

Информатика

Ответить

Ответы

Ter-Pogosov_Vasilevna

14.11.2022

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

Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все пол

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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