or 控制变量：=初值 downto 终值 do
循环体语句
例一： 编程计算1+2+3+……+100=？ 递增型for循环
Program he(input,output); var i,sum:integer; begin sum:=0; for i:=1 to 100 do sum:=sum+i; writeln(sum); end.
Pascal暑假微课系列
第05课
循环结构——for语句
（计数循环）for语句
通过计数来控制重复语句的运行次数。
for语句
for循环
循环体(需要重复执行的子程序)
（计数循环）for语句
递增型for循环
for 控制变量：=初值 to 终值 do
循环体语句
（计数循环）for语句
递增型for循环
for 控制变量：=初值 to 终值 do
讨论：设每次读入的数为x，和sum，平均值ave，它们都 是实数类型。
一级算法： 1.初始化sum为0； 2.for i:=1 to 20 do begin 3.读入x 4.将x加到sum上 end 5.计算ave 6.输出sum和ave
例二：读入20个数，输出它们的和以及平均值
二级求精： 1.初始化sum为0； 2.for i:=1 to 20 do begin 3.读入x 4.将x加到sum上 sum:=sum+x end 5.计算ave 6.输出sum和ave
例二：读入20个数，输出它们的和以及平均值
Program aa(input,output); var i:integer; x,sum,ave:real; begin sum:=0; for i:=1 to 20 do begin read(x); sum:=sum+x; end; ave:=sum/20; writeln(sum,ave); end.
例一： 编程计算1+2+3+……+100=？ 递增型for循环
Program he(input,output); var i,sum:integer; begin sum:=0; for i:=100 downto 1 do sum:=sum+i; writeln(sum); end.
例二：读入20个数，输出它们的和以及平均值