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, a1
,a2
, …, an
, k-
B2: i 1, d 0-
B3: nếu ai
= k thì tăng d lên 1 đơn vị d d +1-
B4: ii+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.