Заполнить массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начала массива, а все отрицательные и нули – в конце. вычислите количество положительных элементов. пример: массив: 20 -90 15 -34 10 0 результат: 20 15 10 -90 -34 0 количество положительных элементов: 3
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a:=(a.Where(t->t>0)+a.Where(t->t<=0)).ToArray; a.Println
end.
Пример
n= 19
-84 -71 -76 -36 69 15 -64 12 60 -11 75 31 -42 19 66 78 -46 19 44
69 15 12 60 75 31 19 66 78 19 44 -84 -71 -76 -36 -64 -11 -42 -46