Viết giải thuật tìm số nguyên x trong dãy số trên và chỉ ra vị trí xuất hiện của số x trong dãy số trên
1 câu trả lời
uses crt;
var a: array[1..100] of integer;
i,n,x: integer;
begin
clrscr;
write ('nhap so luong phan tu: '); readln (n);
for i:=1 to n do
begin
write ('nhap phan tu thu ',i,': '); readln (a[i]);
end;
write ('nhap x: '); readln (x);
write ('x xuat hien o cac vi tri: ');
for i:=1 to n do if x=a[i] then write (i:3);
readln;
end.
Câu hỏi trong lớp
Xem thêm
