Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и количество отрицательных элементов во второй. блок схему и программу

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

begin

  var mas:=ArrRandom(20,-99,99); mas.Println;

  var a:=mas[0:10]; var b:=mas[10:20]; 

   Writeln('количество положительных элементов=',a.Where(t->t>0).Count);

    Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);

end.
это как учат в школе :->

var 

i,k,l:integer;

mas:Array[1..20] of integer;

begin

randomize;

for i:=1 to 20 do

mas[i]:=random(-99,99);

for  i:=1 to 10 do

if mas[i]>0 then

k:=k+1;

for  i:=11 to 20 do

if mas[i]>0 then

l:=l+1;

Writeln('количество положительных элементов=',k);

    Writeln('количество отрицательных элементов=',l);

    end.

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
  Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
  Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.

Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1 
16 -1 -14 1 0
Во второй половине отрицательных: 2 

Придумать самим по два достоверных, случайных и невозможных события.в и вообще в современной и мире принята так называемая вероятностная картина мира, когда окружающие нас события рассматриваются с точки зрения вероятности их возникновения  и соответственно производятся расчеты ресурсов, необходимых на получение нужных результатов. если вероятность негативного для нас события мала, то и закладывать ресурсов под предотвращение этого обытия нужно немного. например, попадание молнии в здание. для предотвращения достаточно установить громоотвод.  вероятное событие: выпадение осадков, отключение электричества в районе.событие которое может произойти или не произойти с некоторой вероятностью.невозможное событие: полет птицы в космос без специальных приспособлений, написание самого большого числа в десятичной системе исчисления.событие, вероятность возникновения которого строго равна нулю.достоверное событие:   собите вероятность возникновения которого строго равна 100%.действие законов .наступление воскресения.

я точно не знаю, но уверена, что что модуль можно нимать лишь тогда, когда в этой части уранения больше нет никаких другив компонентов. тоесть, надо перепести все слагаемы в другую часть уравнения.       некоторое я знаю точно: 1) модуль всегда равен положительному числу.2) если под знаком модуля положительное число, то знак модуля просто снимается.3) если под знаком модуля отрицательное число, то у него меняется знак на противоположный, и оно становится положительным.