, Viết chương trình nhập vào một mảng số nguyên A gồm 100 phần tử thực hiện một số yêu cầu sau : a) in ra mảng vừa nhập b) nhập vào một số nguyên X hãy kiểm tra xem X có trong A hay không. Nếu có in số lần X xuất hiện trong mảng A

Program FNG;
Uses crt;
Var A: array[1..100] of extended;
    x: extended;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap X: '); Readln(X);
        d:=0;
        For i:=1 to 100 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] = x then inc(d);
        End;
        If d=0 then Write('Khong co')
        Else Write(d);
        Readln
End.

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

I,n,X : byte;

Begin

Clrscr ;

N:=0;

Write('nhap so X'); readln(X);

For i:=1 to 100 do 

Begin

Write('A[',i,']'); readln(A[i]); 

End;

For i:=1 to n do

If A[i] = X then  inc(n);

Writeln('co so phan tu bang ',X,' trong mang la',n); 

Readln

End.