ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ ** ЯЗЫКЕ ПАСКАЛЬ Уровень C. Заполнить массив случайными...

Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ

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

Answer 1

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-100,100); a.Println;
  a:=a.Where(x->x>0).Concat(a.Where(x->x<=0)).ToArray;<br>  a.Println;
  Writeln('Количество положительных элементов: ',
    a.Where(x->x>0).Count)
end.

Тестовое решение:
n= 15
-29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -93
56 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93
Количество положительных элементов: 5