祥瑞德仪器:“输入10个数,将每个数与平均值的差依次显示在屏幕上”这道Pascal题怎么做?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/26 14:19:11
编程过程具体是怎样的?

读取十个数
求它们的平均数
将十个数与平均数的差依次显示。

具体流程如 richardbao2000 所说的````
1,读10个数
2,求平均数
3,将10个数分别与平均数比较作差
4,输出结果
var a:array[0..10]of real;
i:integer;
begin
a[0]:=0;
for i:=1 to 10 do
begin
read(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.

var
a:longint;
o:real;
sz:array[1..10] of longint;
begin
o:=0;
for a:=1 to 10 do
begin
readln(sz[a]);
o:=o+sz[a];
end;
o:=o/10;
for a:=1 to 10 do write(sz[a]-o:0:5)