Заполнить массив ss(12) случайными числами от -5 до 5.подсчитать количество положительных элементов.

Const
n = 12;
var a:array[1..n] of integer;
k,i: integer;
Begin
For i:=1 to n do
a[i]:=Random(11)-5;
writeln('Исходный массив: ');
For i:=1 to n do write (a[i], ' ');
writeln; {переход на новую строку}
k:=0; {счётчик для положительных элементов}
For i:=1 to n do
begin
if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов = ', k);
end.