program doan_1_10; uses crt; var A:array[1..100000] of integer; n,i,d:integer; begin; clrscr; write('Nhap so luong: '); readln(n); d:=0; for i:=1 to n do begin write('Nhap so thu ',i,': '); readln(A[i]); if (A[i]>=1) and (A[i]<=10) then d:=d+1; end; write('Co ',d,' so cua day thuoc doan [1;10]'); readln; end.
uses crt; var i,n,d:longword; a:array[1..100000] of longint; begin clrscr; readln(n); d:=0; for i:=1 to n do begin read(a[i]); if a[i] in [1..10] then inc(d); end; writeln(d); readln;readln; end.
