中科新闻网尊宝国际娱乐官网:2道pascal的题目，高手来看看．．
来源：百度文库 编辑：中科新闻网 时间：2024/04/30 04:13:32
1. 输入10个学生成绩，分别统计成绩在85—100分，60—85分，60分以下，各分数段中的人数。
2. 求10个数中的最大值和最小值。
用for循环做
2. 求10个数中的最大值和最小值。
用for循环做
program p1;
var a:array[1..10] of integer;
i,n1,n2,n3:integer;
begin
n1:=0;n2:=0;n3:=0;
for i:=1 to 10 do
begin
read(a[i]);
if (a[i]>=85) and (a[i]<=100) then n1:=n1+1;
if (a[i]<85) and (a[i]>=60) then n2:=n2+1;
if a[i]<60 then n3:=n3+1;
end;
writeln('85-100',' ',n1);
writeln('60-85',' ',n2);
writeln('<60',' ',n3);
end.
program p2;
var a:array[1..10] of longint;
i:integer;max,min:longint;
begin
for i:=1 to 10 do read(a[i]);
max:=a[1];min:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max is',' ',max);
writeln('min is',' ',min);
end.