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,