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

var

a: array [ 1..n ] of real;

count, i: integer;

begin randomize;for i := 1 to n doa [ i ] := random ( 100 ) - 50;

for i := 1 to n dowrite ( a [ i ], \' \' );writeln ( );

for i := 1 to n do

if a [ i ] > 0 thencount := count + 1;

writeln ( \'Количество положительных чисел в массиве равно \', count, \'.\' );end.