input.txt

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

program testexample;
   const  num=20, times=10 ;
   var  k, sum1, sum2, x : integer;
      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.