Viết chương trình nhập vào 1 mảng gồm n số thực ( n<= 50) và 1 số x. Hãy đếm xem trong mảng có bao nhiêu phân tử chứa giá trị bằng x.

program demx;

uses crt;

var A:array[1..50] of real;

      n,i:byte;

      d:word;

      x:real;

begin

     clrscr;

     write('Nhap x: ');   readln(x);

     write('Nhap so luong phan tu n: ');  readln(n);

     d:=0;

     for i:=1 to n do

          begin

               write('Nhap so thu ',i,': ');  readln(A[i]);

               if A[i]=x then d:=d+1;

          end;

     write('Trong day co ',d,' phan tu bang x');

     readln;

end.

program dem;

uses crt;

var d,n,i:integer;

       A:Array[1..100] of real;

        x:real;

Begin

clrscr;

d:=0;

write('Nhap N: '); readln(n);

For i:=1 to n do

 Begin

 write('[ ',i,' ]= ');

readln(A[i]);

End;

write('Nhap x: '); readln(x);

For i:=1 to n do 

 if A[i]=x then d:=d+1;

write('Cac phan tu co gia tri bang x la: ,d);

readln;

end.