Pascal
Ввести одномерный массив, состоящий из т элементов. Найти количество положительных и отрицательных элементов в данном массиве.

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введи элементы массива:', n);

 var (kn, kp) := (0, 0);

 for var i := 0 to a.High do

   if a[i] < 0 then

     Inc(kn)

   else if a[i] > 0 then

     Inc(kp);

 Write('Отрицательных: ', kn, ', положительных: ', kp)

end.