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
0 bình luận về “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”
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.
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.
viết chương trình hay thuật toán v bn