viết thuật toán tính tổng Trùng bình cộng của các số bội 100

0 bình luận về “viết thuật toán tính tổng Trùng bình cộng của các số bội 100”

1. Program NN;
   Uses crt;
   Var n,i,s,d: longint;
       A: array[1..10000] of longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i] mod 100 = 0 then
                   Begin
                           inc(d);
                           s:=s+A[i];
                   End;
           End;
           Write(s/d:0:2);
           Readln
   End.

   Bình luận