如何做帕斯卡問題“輸入 10 個數字並依次在螢幕上顯示每個數字與平均值之間的差值”？

具體過程如Richardbao2000所說：1、讀10個數字。

2. 求平均值。

3. 將 10 個數字分別與平均值進行比較。

4. 輸出結果。

var a:array[0..10]of real;

i:integer;

begina[0]:=0;

for i:=1 to 10 do

beginread(a[i]);

a[0]:=a[0]+a[i]/10;

end;writeln('everage:',a[0]:4:2);

for i:=1 to 10 do

write(a[i]-a[0]:4:2,' ');

end.

閱讀十個數字。

找到他們的平均值。

依次顯示十個數字與平均數字之間的差值。

不應使用整數，因為它表示整數，可以更改為實數

其實這個問題沒有樓上那麼麻煩，也沒必要用到陣列。

一次只需要讀取 1 個數字，判斷它是否大於最大值和小於最小值，然後將總值相加（最後除以 20 即可找到平均值）。

var i,a,max,min,total:integer;i 是迴圈變數，a 是每次讀取的次數，max 儲存最大值，min 儲存最小值，total 儲存總數。

beginmax:=-9999;min:=9999;total:=0;初始值，max儲存乙個很小的數字，min儲存乙個很大的數字，可以理解put。 當然，一開始的總數是 0。

對於 i：=1 到 20，執行迴圈 20 次。

beginread(a);讀乙個數字。

if a>max then max:=a;要確定它是否大於 max，就是給 a 到 max，以確保 max 始終是最大的。

if atotal:=total+a;總金額加

end;writeln(max);最大輸出。

writeln(min);輸出最小值。

writeln(total/20:1:5);輸出總數除以 20（平均值）。

end.好了，差不多就到這裡了，如果不明白的話請問。。。保證原創性（打我 20 分鐘，給它加分）。

讓我們接受它吧！！

弱弱地問樓上，玩了就死了是什麼意思]。

最大值是指 20 個數字中最大的乙個嗎？

十個數字與最原始的方法：

vara:array[1..10]of integer;

i,j,t:integer;

beginfor i:=1 to 9 do

for j:=i+1 to 10 do

if a[i]>a[j] then

begint:=a[i];

a[i]:=a[j];

a[j]:=t;

end;for i:=1 to 10 do write(a[i],' ');

end.這樣，10個數字按從小到大的順序排列。

program a1;

vara:array[1..100]of integer;

beginread(n);[此處假設為 10]。

for i:=1 to n do read(a[i]);輸入這個數字 n（假設 10）。

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]begin

max:=a[i];

a[i]:=a[j];

a[j]:=max;

end;for i:=1 to n do

beginwrite(a[i]:3);

end;end.

採用它，我已經除錯過了。

同意Jaxxcyh的觀點！

為了你不知道的，我給你乙個參考程式。

var a:array[1..20]of real;

n,m,b:real;

i,j:integer;

beginfor i:=1 to 20 do beginread(a[i]);

if a[i]>m then m:=a[i];

b:=b+a[i];

end;readln;

writeln('zuida=',m：0：2); b:=b/20;

n:=a[1];

for i:=2 to 20 do

if a[i]writeln('zuixiao=',n：0：2);

writeln('pinjun=',b：0：2);

end.因為你沒有說它是整數還是小數，所以我用十進位方法做了。

如果你不說“快點”，我想幫你一點，但我想沒有人會願意用你面前這個粗魯的“快點”來幫你解決問題。

你必須具備一些品質才能成為乙個男人！

將滑鼠懸停在藍色條上。

單擊滑鼠右鍵。 選擇“屬性”。

選擇好的字型（建議點陣字型為7*12）。

然後按布局。

用緩衝液填充它。

重新填充視窗大小。

完成後按 OK。

右鍵單擊快捷方式。

選擇“屬性”...

選擇“布局”選項卡。

然後調整“緩衝區大小”。

如果可以使用 alt+enter 全屏。

建議使用 alt+enter...。

有很多方法可以做到這一點，我會告訴你最簡單的方法：alt+enter，收縮也是如此。

右鍵單擊欄視窗，您將找到具有開始的視窗。

選擇“屬性”，修改字型大小，就可以開始了。

Alt+Enter收縮也是這個。

或者調整屬性。