用pascal计算题目问题一:用pascal输入10个任意整数,求他们的平均值二:按正序和反序分别输入26个英文字母三:输入20个整数,输出其中最大值四:输入20个整数,统计其中正负和零的个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/26 21:21:29
用pascal计算题目问题一:用pascal输入10个任意整数,求他们的平均值二:按正序和反序分别输入26个英文字母三:输入20个整数,输出其中最大值四:输入20个整数,统计其中正负和零的个数
用pascal计算题目
问题一:用pascal输入10个任意整数,求他们的平均值
二:按正序和反序分别输入26个英文字母
三:输入20个整数,输出其中最大值
四:输入20个整数,统计其中正负和零的个数
用pascal计算题目问题一:用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.