Giúp em về tìm vị trí trog mảng 1 chiều với ạ

[superhotboy97]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đề 1.Viết chương trình nhập vào một mảng 1 chiều A có N phần tử cac số nguyên(N<=100).Nhập 1 số nguyên X,kiểm tra X có trong mảng hay không?Nếu có cho biết sô lượng của phần tử đó
Em cảm ơn nhiều ạ

 

[mikelhpdatke]

Đề 1.Viết chương trình nhập vào một mảng 1 chiều A có N phần tử cac số nguyên(N<=100).Nhập 1 số nguyên X,kiểm tra X có trong mảng hay không?Nếu có cho biết sô lượng của phần tử đó
Em cảm ơn nhiều ạ

Var A:Array[1..100] Of integer;
x,i,n,dem:integer;
BEGIN
readln(n);
dem:=0;

For i:=1 to n do readln(A[i]);
  readln(x);
For i:=1 to n do
 If A[i]=x then 
  
    inc(dem);
If dem>0 then Begin writeln('True'); writeln('Xuat hien ',dem,'lan');
readln  
 End.