TL

VTC nhập 1 dãy A có n só tự nhiên(n<40) và 1 số k. Hãy xuất ra các phần tử có số lần xuất hiện trong dãy A từ k lần trở lên (mỗi số chỉ xuất hiện 1 lần)

NP
24 tháng 5 2021 lúc 11:14

program xuat_hien_k_lan;

uses crt;

var  i,n,k,j:integer;

a,b:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

write('nhap k:');readln(k);

for i:=1 to n do

begin

for j:=i to n do

if a[i]=a[j] then inc(b[i]);

end;

for i:=1 to n do

if b[i]>=k then write(a[i]:5);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
TM
Xem chi tiết
NY
Xem chi tiết
PA
Xem chi tiết
NM
Xem chi tiết
NM
Xem chi tiết
HH
Xem chi tiết
HT
Xem chi tiết
NK
Xem chi tiết
TL
Xem chi tiết