Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
0o0 Nhok kawaii 0o0

Viết chương trình nhập vào 1 mảng và 1 số k, tìm và in ra phần tử xuất hiện từ k lần trở lên (Pascal ).

Minh Lệ
26 tháng 2 2020 lúc 20:05

Program hotrotinhoc;

var x,i,n,k: integer;

a: array[0..32000] of integer;

begin

write('N='); readln(n);

write('K='); readln(k);

for i:=1 to n do

begin

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

inc(a[x]);

end;

write('Cac phan tu xuat hien tu k lan tro len la : ');

for i:=0 to 32000 do

if a[i]>=k then write(i,' ');

readln

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Huynhnhu
Xem chi tiết
uyen hihi
Xem chi tiết
Trần Thị Thèo Lèo
Xem chi tiết
nông thị ngân
Xem chi tiết
Nguyen hung
Xem chi tiết
Yến Nhi
Xem chi tiết
Khang Hoàng
Xem chi tiết
Benny
Xem chi tiết
Thảo Vy
Xem chi tiết