读入N个整数,输出其每个数出现的次数!!
来源:百度知道 编辑:UC知道 时间:2024/06/17 19:20:05
用(pascal语言)编写程序,急需!!!!!!
const minn=-1000000,maxn=1000000;//range -1000000~1000000
var a:array[minn..maxn]of longint;
t,n,i:longint;
begin
readln(n);
for i:=1 to n do begin
read(t);inc(a[t]);
end;
for i:=minn to maxn do begin
if a[i]<>0 then writeln(i,'chu xian le ',a[i],' ci');
end;
end.