Cho một mảng các số nguyên n và số nguyên k được nhập từ bàn phím. Viết chương trình hiển thị ra màng hình số lượng phần tử có giá trị bằng k trong mảng arr Vd: nhập arr [ 2 4 6 1 4], k=4 => kết quả:2 Chương trình dùng lệnh gì? Gồm có bao nhiêu biến( kể tên)? Cách hướng dẫn giải.

program tinh;
uses crt;
var a : array[1..100] of integer;
    i, k, n, dem  : integer;
begin
clrscr;
write(' nhap so phan tu co trong mang :'); readln( n );
write(' nhap so k : '); readln( k );
dem := 0;
for i := 1 to n do 
begin
write(' nhap phan tu thu ', i ,': '); readln( a[i]);
if a[i] = k then dem := dem + 1;
end;
writeln(' so luong phan tu co gia tri bang ', k ,' la :', dem );
readln
end.

Program baitap;

Uses crt;

Var arr:array[1..200] of integer;

      n,i,k,dem:integer;

Begin

Clrscr;

Write('n='); Readln(n);

Write('k='); Readln(k);

dem:=0;

For i:=1 to n do

     Begin

     Write('arr[',i,']=');

     Readln(arr[i]);

     If arr[i]=k then dem:=dem+1;

     End;

Writeln('Ket qua:',dem);

Readln

End.