CÓ BAO NHIÊU PHẦN TỬ TRONG MẢNG A CÓ GIÁ TRỊ BẰNG KINPUT A1...

9.

Có bao nhiêu phần tử trong mảng a có giá trị bằng k

Input A1 = 1 4 5 4 7Output K = 4  d = 2K = 6  d = 0 Xác định bài toán:- Input: mảng a, giá trị k- Output: số lượng phần tử trong mảng có giá trị bằng k Thuật toán:

-

B1Nhập n, a

1

,a

2

, …, a

n

, k

-

B2: i 1, d 0

-

B3: nếu a

i

= k thì tăng d lên 1 đơn vị d d +1

-

B4: ii+1;

-

B5: nếu i > n, đưa ra d và kết thúc.- B6: quay lại bước 3. Chương trình: program timkiem;uses crt;var a:array[1..15] of integer; n,i,d:byte;k:integer;begin clrscr; write('nhap so luong phan tu: '); readln(n);for i:=1 to n do begin write('nhap phan tu a[',i,']= '); readln(a[i]); end;write(‘phan gia tri k = ’); readln(k);d:=0; for i:=1 to n doif a[i]=k then d:=d+1;writeln(‘so luong phan tu trong mang co gia tri bang ’,k,’ la: ‘,d);readlnend.