В одномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве.

Const nz = 30; var a:array[1 ... nz] of integer; i, n, k:integer;

begin

write ('Введите число элементов n') ;

Readln (n) ;

for i:=1 to n do begin

a[i]: = random (100) - 50; write (a[i]:4) ; end; writeln;

for i:=1 to n do begin

if a[i]> 0 then begin write (a[i]:4) ; k:=k + 1; end; end; writeln;

write ('количество положительных элементов = ', k) ; end.