跪求pascal高手請進

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

if a[i]

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...

作文高手請進，作文高手請進

爸爸的生日 今天是爸爸的生日，我們一家人都在高興，媽媽和奶奶準備好了飯菜和蛋糕，準備慶祝爸爸生日快樂，於是我們等著 壽星 的歸來。時間一分一秒的過去了，但是卻看不到爸爸的影子，爸爸去哪兒了？我們好擔心 但是又過了一會，家裡的門鈴響了起來，是爸爸回來了，他的手裡拿著一簇康乃馨，爸爸走向奶奶，對奶奶說 ...