1.txt

来自「计算机科学与技术专业课程编译原理的课程实验代码」· 文本 代码 · 共 20 行

program testexample ;

var k, sum1, sum2, x : integer;
      const
        num=10, times=10;
      begin
        sum1:= 0;   sum2:= 0;
        k :=num;
        while k>=1 do
          begin
            read (x);
            if x>=0
             then sum1 := sum1 + x;
            sum2 := sum2 + x;
            k := k-1;
          end;
        write (sum1);
write (times*sum2/ num);
      end.