Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
230
113
const fi='dayso.inp';
fo='dayso.out';
var f1,f2:text;
a,b:array[1..100000]of integer;
i,n,dem,j,kt,t,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'Tong cac phan tu trong day so la: ',t);
b[1]:=a[1];
dem:=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;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then inc(dem1);
writeln(f2,b[i],' xuat hien ',dem1,' lan');
end;
close(f1);
close(f2);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
2288
1724
uses crt;
const max=1000;
var f,f1:text;
a,sl:array[1..100000] of int64;
n,i,j,s:longint;
begin
clrscr;
assign(f,'DAYSO.INP'); reset(f);
assign(f1,'DAYSO.OUT'); rewrite(f1);
readln(f,n);
for i:=1 to n do read(f,a[i]);
for i:=1 to max do sl[i]:=0;
for i:=1 to n do
begin
inc(sl[a[i]]);
inc(s,a[i]);
end;
writeln(f1,s);
for i:=1 to max do if sl[i] > 0 then writeln(f1,i,':',sl[i]);
close(f);
close(f1);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1330
1336
Ghê đấy
1330
1336
Khi nào lên mod thì để anh nhờ vả :D
Bảng tin