Заполнить случайным образом массив А [10]. Найти кол-во положительных элементов . Работа на оценку

Предыдущий
вопрос Следующий
вопрос

const n=10;

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

k,i: integer;

begin

Randomize;

for i:=1 to n do

 begin

 a[i]:=random(20)-10;

 write(a[i],' ');

 end;

writeln;

k:=0;

for i:=1 to n do

 if a[i]>0 then k:=k+1;

writeln(k);

end.