const fidayso.inpfodayso.outvar f1,f2:text;a,b,c:array[1..100]of integer;i,n,k,dem,j,dem1,dem2,kt:integer;beginassign(f1,fi); reset(f1);assign(f2,fo); rewrite(f2);readln(f1,n,k);for i:1 to n doread(f1,a[i]);dem:1;b[1]:a[1];for i:1 to n dobeginkt:0;for j:1 to dem doif a[i]b[j] then kt:1;if kt0 thenbegininc(dem);b[dem]:a[i];end;end;dem1:0;for i:1 to dem dobegindem2:0;for j:1 to n doif b[i]a[j] then inc(dem2);if kdem2 thenbegininc(dem1);c[dem1]:b[i];end;end;for i:1 to dem1 dowrite(f2,c[i]:4);close(...
Đọc tiếp
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 tệp sẵn là Data(I).txt bên trong có 24 chữ số có cả âm và dương. Tính tổng 24 chữ số rồi in ra Data(O).txt . Các bác giúp em với program day_so; uses crt; Const fi=('An(I).txt'); fo=('An(O).txt'); var i,t,s,n: integer; f1,f2:text; a: array[1..24] of integer; begin clrscr; assign(f1,fi);reset(f1); assign(f2,fo);rewrite(f2); s:=0; for i:=1 to 24 do begin read(f1,a[i]); s:=s+a[i]; end; write(f2,s); close(f1); close(f2); readln end. Em không biết sai ở đâu ☹️
