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

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

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.