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

var

i, n: longint;

a: array [1 ... 10] of longint;

begin

n : = 0;

randomize;

for i : = 1 to 10 do

begin

a[i] : = random (100) - 50;

write (a[i], ' ');

if a[i] > 0 then

n : = n + 1;

end;

writeln;

write ('Количество положительных членов данного одномерного массива равно ');

writeln (n, '.');

end.