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

program zz1;

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

i, min, 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); / /выводим ответ

end.