1樓:羅馬角鬥士
varn,i,j,s:longint;
a:array [1..1000] of longint;
procedure qsort(l,r:longint);
vari,j,mid,b:longint;
begin
i:=l;j:=r;
mid:=a[(i+j) div 2];
repeat
while a[i]>mid do inc(i);
while a[j]j;
if il then qsort(l,j);
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
qsort(1,n);
i:=1;j:=0;
while i<=n do begin
inc(j);s:=1;
while (i
inc(i);inc(s);
end;
inc(i);
writeln(s);
end;
writeln(j);
end.
2樓:鄺啟鵬
我的答案是對的,試過了,全對
varn,i,j,sum,sum1:longint;
a:array[0..999] of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
end;
sum:=1;
sum1:=0;
for i:=1 to n do
if a[i]=a[i+1] then inc(sum)else
begin
writeln(sum);
sum:=1;
inc(sum1);
end;
writeln(sum1);
end.
問一句:你是**的?別亂在網上求程式
哪種煙柔和質量好菸民高手請進跪求
利群,20元那個,玉溪.20元那個,我建議你抽雲煙 軟盒 22元,還有救是黃內鶴樓 雅金容香 黃鶴樓我個人感覺比較柔和,沒有太大的衝勁,你如果可以帶個菸嘴也就好了,煙勁會減少很多,幫助健康,不過,帶菸嘴一般我個人覺得有點高傲的成分在裡面,呵呵,這個你自己看著辦吧。你可以去把這幾包煙都買上一個一個的品...
英語高手請進,英語高手請進
你好,1 make mistakes 2,be afraid to do sth 3,make up 4 deal with 5 be angry at.6 pass away 7 manage to do sth 8 break off 9 口語 10 為.驕傲 11 處理 涉及 12 regar...
作文高手請進,作文高手請進
爸爸的生日 今天是爸爸的生日,我們一家人都在高興,媽媽和奶奶準備好了飯菜和蛋糕,準備慶祝爸爸生日快樂,於是我們等著 壽星 的歸來。時間一分一秒的過去了,但是卻看不到爸爸的影子,爸爸去哪兒了?我們好擔心 但是又過了一會,家裡的門鈴響了起來,是爸爸回來了,他的手裡拿著一簇康乃馨,爸爸走向奶奶,對奶奶說 ...