uses crt; var i,n,dem:longint; a:array[1..100000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n Do begin write('a[',i,']=');readln(A[i]); end; dem:=0; for i:=1 to n do if a[i] in [3..9] then inc(dem); writeln('Dem= ',dem); readln end.
a:array[1..100] of longint; begin clrscr; write('n=');readln(n); for i:=1 to n Do begin write('a[',i,']='); readln(A[i]); end; dem:=0; for i:=1 to n do if a[i] in [3..9] then inc(dem); writeln('so luong la ',dem); readln end.
