Дан одномерный массив из 10 элементов. Подсчитать количество положительных элементов массива. Pascal

Const

n = 10;

var

x: array[1 ... n] of integer;

i, k: integer;

begin

Randomize;

Writeln ('Элементы массива') ;

k : = 0;

for i : = 1 to n do

begin

x[i] : = Random (51) - 25;

Write (x[i]:4) ;

if x[i]>0 then Inc (k)

end;

Writeln;

Writeln ('Количество положительных элементов массива равно ', k) ;

end.

Тестовое решение:

Элементы массива

1 13 - 1 0 - 25 7 - 15 - 21 14 9

Количество положительных элементов массива равно 5