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

program zz1;

var mas:array[1 ... 10] of integer;

i, m, k:integer;

begin

for i:=1 to 10 do / /заполняем массив случайными числами от - 10 до 10

mas[i]:=random (21) - 10;

for i:=1 to 10 do / /выводим полученный массив на экран

write (mas[i],' ');

writeln; / /переходим на новую строку для вывода

for i:=1 to 10 do

if mas[i]>0 then k:=k+1; / /проверяем, если число из массива больше нуля, то считаем его

write ('количество положительных элементов в массиве - ', k); / /выводим ответ

writeln; / /переходим на новую строку для вывода

for i:=1 to 10 do

if mas[i]<0 then m:=m+1; / /проверяем, если число из массива меньше нуля, то считаем его

write ('количество отрицательных элементов в массиве - ', m); / /выводим ответ

end.