Viết chương trình nhập mảng 1 chiều N phần tử nguyên. Tính trung bình cộng của các số chẵn

0 bình luận về “Viết chương trình nhập mảng 1 chiều N phần tử nguyên. Tính trung bình cộng của các số chẵn”

1. Uses crt;
   Var A:array[1..10000] of longint;
       s,d,i,n,tbc: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           s:=0; d:=0;
           For i:=1 to n do
                   If A[i] mod 2 = 0 then
                   Begin
                           s:=s+A[i];
                           inc(d);
                   End;
           tbc:=s/d;
           Write(‘Trung binh cong cac so chan la: ‘,tbc);
           Readln
   End. 

   Bình luận