Pascal编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 11:29:08
T75_004 输入10个任意整数，求它们的平均值
T75_005 按正序和反序输出26个英文字母
T75_006 输入20个整数，输出其中最大数
T75_007 输入20个整数，统计其中正、负和零的个数
各位大哥大姐帮帮忙，谢谢！
马上提高20分

1.
program T75_004;
var
x,i,s:integer;a:real;
begin
s:=0;
for i:=1 to 10 do beign
read(x);s:=s+x;{计算这十个整数的总和}
end;
a:=s/10;{计算这十个整数的平均数}
write(s:0:1);{输出这十个整数的平均数（保留1位小数）}
end.

2.(大写还是小写)
小写：
program T75_005;
var
ch:char;
begin
for ch:='a' to 'z' do write(ch:2);{正序输出a~z}
writeln;
for ch:='z' downto 'a' do write(ch:2);{反序输出z~a}
end.
大写：
program T75_005;
var
ch:char;
begin
for ch:='A' to 'Z' do write(ch:2);{正序输出A~Z}
writeln;
for ch:='Z' downto 'A' do write(ch:2);{反序输出Z~A}
end.
3.
program T75_006;
var
x,i,a:integer;
begin
read(x);a:=x;
for i:=1 to 19 do begin
read(x);
if x>a then a:=x;
end;
write(a);
end.
4.
program T75_007;
var
a,b,c,x,i:integer;
begin
a:=0;b:=0;c:=0;
for