Дан массив целых чисел. Найти количество тех элементов, значение которых положительны и не превосходят заданного натурального числа А.

(сделайте в паскале)

Uses crt;

const N=20;

var

i, A, x: integer;

arr: array [1 ... N] of integer;

begin

clrscr;

x:=0;

write ('A=') ;

readln (A) ;

writeln ('Array: ') ; f

or i:=1 to N do

begin

arr[i]:=random (41) - 20;

write (arr[i],' ') ;

end;

for i:=1 to N do

begin

if (arr[i]>=0) and (arr[i]<=A) then

x:=x+1;

end;

writeln () ;

writeln ('Answer: ', x) ;

readln () ;

end.