Mạng máy tính và internet

H24

in phần tử có số lần xuất hiện k lần trong mảng có n phần tử.Nếu có nhiều phần tử cùng có k lần xuất hiện thì in từ nhỏ tới lớn pascal

ML
13 tháng 2 2020 lúc 13:41

Program hotrotinhoc;

var k,n,i,x: integer;

a: array[1..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;

for i:=1 to 32000 do

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

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
HT
Xem chi tiết
PT
Xem chi tiết
NN
Xem chi tiết
DT
Xem chi tiết
DT
Xem chi tiết
H24
Xem chi tiết
DT
Xem chi tiết
KB
Xem chi tiết
HT
Xem chi tiết