cho dãy A gồm N các số nguyên:a1,a2,..aN và 1 số nguyên K.Cần biết truy dãy có bao nhiu số hằng có giá trị = giá trị của K? giải hộ mik vs <3

0 bình luận về “cho dãy A gồm N các số nguyên:a1,a2,..aN và 1 số nguyên K.Cần biết truy dãy có bao nhiu số hằng có giá trị = giá trị của K? giải hộ mik vs <3”

1. program tinhsobangk;

   uses crt;

   var a:array[1..100] of longint;

   n,dem:longint;

   begin

   clrscr;

   write(‘nhap so phan tu cua day’,n);

   readln(n);

   dem:=0;

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]’);

   readln(a[i]);

   end;

   for i:=1 to n do

   begin

   if a[i]=x then

   dem:=dem+1;

   writeln(‘ trong day co do hang so co gia tri bang k la’,dem);

   end;

   readln

   end.

   Bình luận