Program BTT; Uses crt; Var A: array[1..10000] of longint; n,i: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
Write('Vi tri cac phan tu = 10: '); For i:=1 to n do If A[i] = 10 then Write(i,' '); Readln End.
