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

numOfPositive, i: integer;

begin

   writeln('Исходный массив:');

   for i:=1 to 10 do

   begin

       arr[i]:=random(-100, 100);

       write(arr[i], ' ');

   end;

   writeln();

   for i:=1 to 10 do

       if arr[i] > 0 then

           numOfPositive += 1;

   writeln('Количество положительных элементов: ', numOfPositive);

end.