Cho số nguyên N và dãy A1,A2...An. hãy tìm và đưa ra vị trí các phần tử có giá trị bằng 10
2 câu trả lời
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.
