神马作文网用pascal计算题目
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/09/24 10:23:00
用pascal计算题目
问题一：用pascal输入10个任意整数,求他们的平均值
二：按正序和反序分别输入26个英文字母
三：输入20个整数,输出其中最大值
四：输入20个整数,统计其中正负和零的个数
问题一：用pascal输入10个任意整数,求他们的平均值
二：按正序和反序分别输入26个英文字母
三：输入20个整数,输出其中最大值
四：输入20个整数,统计其中正负和零的个数
1、
var a:array[1..10] of integer;
n,m:integer;
s:=real；
begin
for n:=1 to 10 do read(a[n]);
for n:=1 to 10 do m:=m+a[n]；
s:=m /10；
writeln（s:0:0:0）；
end.
2、
var n:char
begin
for n:=‘a’ to‘z' do writeln（n);
for n:=’z' to ‘z' do writeln（n）；
end.
3、
var m,n,i：integer；
a:array[1..20] of integer；
begin
readln(i);
for i：=1 to20 do readln(a[i]);
for i：=1 to 20 do begin
ifa[i]>m then m:=a[i];
end;
write(m);
end.
var a:array[1..10] of integer;
n,m:integer;
s:=real；
begin
for n:=1 to 10 do read(a[n]);
for n:=1 to 10 do m:=m+a[n]；
s:=m /10；
writeln（s:0:0:0）；
end.
2、
var n:char
begin
for n:=‘a’ to‘z' do writeln（n);
for n:=’z' to ‘z' do writeln（n）；
end.
3、
var m,n,i：integer；
a:array[1..20] of integer；
begin
readln(i);
for i：=1 to20 do readln(a[i]);
for i：=1 to 20 do begin
ifa[i]>m then m:=a[i];
end;
write(m);
end.