Verified answer

Программа:

Pascal:

var

 R: array[1..10] of integer;

 n, i: integer;

begin

 writeln('Введите массив: ');

 for i := 1 to 10 do begin

   readln(R[i]);

   if R[i] > 0 then inc(n);

 end;

 writeln('Массив: ', R);

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

end.