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

0 bình luận về “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. 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.

   Bình luận