关于pascal语言for语句的几个小问题（急急急）

来源：百度知道 编辑：UC知道 时间：2024/07/07 08:05:48
pascal语言
一.1+3+5+7……+99的答案 一定要用for语句编写
二.1+4+7+10+13……+100的答案 一定要用for语句编写
三.从键盘上输入10个数，去掉一个最大数和一个最小数，求平均值。 一定要用pascal语言编写
三道全部要用for语句辨析

第一个：
var c,sum:integer;
begin
sum:=0;
for c:=1 to 50 do
sum:=sum+2*c-1;
writeln(sum);
end.
第二个：
var c,sum:integer;
begin
sum:=0;
for c:=1 to 34 do
sum:=sum+c*3-2;
writeln(sum);
end.
第三个：
var a:array[1..10] of integer;c,d,e:integer;k:real;
begin
for c:=1 to 10 do read(a[c]);
for c:=1 to 9 do
for d:=c+1 to 10 do
if a[c]>a[d] then begin
e:=a[c];a[c]:=a[d];a[d]:=e;
end;
k:=0;
for c:=2 to 9 do k:=k+a[c];
writeln(k/8:0:2);
end.
第三题的排序没必要用快排，冒泡足矣，最后的结果保留了2位小数

第一个：
var c,sum:integer;
begin
sum:=0;
for c:=1 to 50 do
sum:=sum+2*c-1;
writeln(sum);
end.
第二个：
var c,sum:integer;
begin
sum:=0;
for c:=1 to 34 do
sum:=sum+c*3-2;
writeln(sum);
end.
第三个：
var a:array[1..10] of integer;c,d,e:integer;k:real;
begin
for c:=1 to 10 do read(a