pascal程序

var

s:array[1..10] of real

sum,max,min:real

i:integer

begin

writeln('Please input ten score')

sum:=0

for i:=1 to 10 do

begin

readln(s[i])

sum:=sum+s[i]{把10次得分的和加起来}

end

max:=s[1]

min:=s[1]

for i:=2 to 10 do

begin

if s[i]>max then

max:=s[i]{找到10个数中最大的一个}

if s[i]<min then

min:=s[i]{找到10个数中最小的一个}

end

sum:=sum-max-min{求出需要的8个得分之和，减去了最大和最小值}

sum:=sum/8

writeln('The player score is ',sum:4:2)

end.

输出1～2000内的素数。

s:=0//s为个数

for i:=2 to 2000 do //i为待检测数

begin

a:=1

for j:=2 to i-1 do //枚举i可能的因数

begin

if i mod j=0 then begin a:=0breakend//i存在因数

end

if a=1 then begin inc(s)write(i,' ')if s mod 10=0 then writeln //a=1表示i为素数，此时输出i，增加s

end

end

---