Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vũ Đức Duy

const fi='dayso.inp'
fo='dayso.out'
var f1,f2:text;
a,b,c:array[1..100]of integer;
i,n,k,dem,j,dem1,dem2,kt:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,k);
for i:=1 to n do
read(f1,a[i]);
dem:=1;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
dem1:=0;
for i:=1 to dem do
begin
dem2:=0;
for j:=1 to n do
if b[i]=a[j] then inc(dem2);
if k<=dem2 then
begin
inc(dem1);
c[dem1]:=b[i];
end;
end;
for i:=1 to dem1 do
write(f2,c[i]:4);
close(f1);
close(f2);
end.

Chuyển hộ mình từ code pascal này sang c++ với ạ.

Mình cảm ơn


Các câu hỏi tương tự
•๖ۣۜNHa•
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
Linh Nguyễn Gia
Xem chi tiết
Phước Nguyễn
Xem chi tiết
Hoan Nong
Xem chi tiết
An Võ Khánh
Xem chi tiết
Hoàng Ngọc Huyền
Xem chi tiết
Vô khuyết Hoa
Xem chi tiết