HTML:
const fi='TS.INP';
fo='TS.INP';
type mmc=array[0..32000] of word;
var a:mmc;
f:text;
n,d:word;
i,x:word;
Time:Longint;Times:Longint absolute 0:$46C;
Begin
Time:=Times;
Fillchar(A,sizeof(A),0);
assign(f,fi);
reset(f);
readln(f,n);
For i:=1 to n do
Begin
read(f,x);
a[x]:=a[x]+1;
End;
close(f);
assign(f,fo);
rewrite(f);
For i:=0 to 32000 do
if a[i]>1 then writeln(f,i,' ',a[i]);
close(f);
Writeln((Times-Time)/18.2:0:0);
Readln;
mình hỏi thế này, ở bài này mình có cần phải khởi tạo mảng Fillchar(A,sizeof(A),0); nữa không.vì ban đầu mảng này mắc định = 0 rồi,
const fi='TS.INP';
fo='TS.INP';
type mmc=array[0..32000] of word;
var a:mmc;
f:text;
n,d:word;
i,x:word;
Time:Longint;Times:Longint absolute 0:$46C;
Begin
Time:=Times;
Fillchar(A,sizeof(A),0);
assign(f,fi);
reset(f);
readln(f,n);
For i:=1 to n do
Begin
read(f,x);
a[x]:=a[x]+1;
End;
close(f);
assign(f,fo);
rewrite(f);
For i:=0 to 32000 do
if a[i]>1 then writeln(f,i,' ',a[i]);
close(f);
Writeln((Times-Time)/18.2:0:0);
Readln;
mình hỏi thế này, ở bài này mình có cần phải khởi tạo mảng Fillchar(A,sizeof(A),0); nữa không.vì ban đầu mảng này mắc định = 0 rồi,