Program BTT; Uses crt; Var A:array[1..10000] of longint; i,n,dem: longint; Begin Clrscr; Write('Nhap so luong phan tu: '); 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]=10 then inc(dem); Write('Co ',dem,' phan tu bang 10'); Readln End.
uses crt; var n,i,d:longint; a:array[1..10000000]of longint; begin clrscr; write('Nhap so n: ');readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');read(a[i]); if a[i]=10 then inc(d); end; writeln('Co ',d,' phan tu co gia tri bang 10'); readln end.
