有本事就来吧！！！ — 编程爱好者社区

主题：有本事就来吧！！！

OK逻 [专家分：0] 发布于 2005-05-05 16:54:00

3. 输入某课程 20 位学生的成绩，把高于 80 分的成绩打印出来？

[ 算法 ] 利用数组保存学生成绩。把所有学生成绩都保存在一个组里面，我们读取学生成绩时只要在组里面寻找即可。

For I:=1 to 20 do

if a[I]>80 then

writeln(a[I]:5);

4. 修改程序，将 20 位同学当中高于平均分的学生成绩打印出来

本帖地址： http://bbs.pfan.cn/post/74622.html

回复列表（共2个回复）

沙发

sd5774188 [专家分：260] 发布于 2005-05-05 23:14:00

program yb(input,output);
type
  s1=array[1..20] of real;
var
  s:s1;
  a:integer;
    begin
     for a:=1 to 20 do
      read(s[a]);
     for a:=1 to 20 do
      if s[a]>80 then
        writeln(s[a]:3:1);
     end.
第三道

板凳

sd5774188 [专家分：260] 发布于 2005-05-05 23:19:00

program yb(input,output);
type
  s1=array[1..20] of real;
var
  s:s1;
  a:integer;
  b:real;
    begin
    b:=0;
     for a:=1 to 20 do
      read(s[a]);
     for a:=1 to 20 do
      b:=b+s[a];
       b:=b/20;
        for a:=1 to 20 do
         if s[a]>b then
           writeln(s[a]:3:1);
     end.
第四道

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：有本事就来吧！！！

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：有本事就来吧！！！

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）