Program BTT; Uses crt; Var A:array[1..10000] of longint; i,n,k,min: Longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
Write('Nhap k: '); Readln(k); For i:=1 to n do If A[i]=k then Begin Write('A[',i,']'); Writeln; End; Writeln;
min:=A[1]; For i:=2 to n do If A[i]<min then min:=A[i]; Write('GTNN la: ',min); Readln End.
