Cho dãy A gồm N số nguyên: a1, …, aN. Hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng số nguyên k.

program dem;

uses crt;

var a:arrray[1..100] of integer;

i,k,dem,n: integer;

begin

clrscr;

dem:=0;

writeln('nhap so k: '); readln(k);

write('nhap do dai cac phan tu cua day a: '); readln(n);

writeln('hay nhap cac gia tri cua day a: ');

for i:=1 to n do begin

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

if a[i]=k then dem:=dem+1;

end;

writeln('co',dem,'so hang trong day co gia tri baang k');

readln

end.

Program bai_giai;
uses crt;
var dem,n,k,i:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  write('k=');readln(k);
  dem:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i]=k)then inc(dem);
        end;
  write('so chu so bang k la:',dem);
 readln;
end.

đây nhá bạn