viết chương trình nhập từ bàn phím mảng A gôm N số nguyên a1,a2,a3,..,aN ( N<=200) .Hãy cho biết mảng có bao nhiêu phần tử có giá trị bằng 15 ?

program baigiai;

uses crt;

var A:array[1..200] of integer;

      n,i,d:integer;

begin

clrscr;

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

d:=0;

for i:=1 to n do

  begin

     write(‘A[‘,i,’]= ‘);    readln(A[i]);

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

  end;

write(‘Trong day co ‘,d,’ phan tu bang 15′);

readln

end.