Question

Заполнить массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начала массива, а все отрицательные и нули – в конце. Вычислите количество положительных элементов. Пример: Массив: 20 -90 15 -34 10 0 Результат: 20 15 10 -90 -34 0 Количество положительных элементов: 3

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

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