Question

-Viết chương trình nhập 1 dãy số nguyên gồm n phần tử. in ra màn hình vị trí các phần tử có giá trị bằng x ( với x,n được nhập từ bàn phím)

Answer 1

uses crt;
var a:array[1..10000000] of longint;
i,n,d,x:longint;
s:real;
begin
clrscr;
write('Nhap n la ');read(n);
write('Nhap x la ');read(x);
for i:=1 to n do begin
write('A[',i,']','=');read(a[i]); end;
for i:=1 to n do
if a[i]=x then writeln(i,' ');
readln
end.