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

Ответы:

uses crt,

const n=10,

var a:array[1..n] of integer,

i,k:integer,

begin

for i:=1 to n do

read(a[i]),

k:=0,

for i:=1 to n do

if a[i]&gt,0 then inc(k),

writeln(k),

end.