Cho N thuộc Z (N<10^6). mảng A gồm N phần tử (a1,a1,..an). Nhập từ bàn phím tính trung bình các phân tử chẵn

0 bình luận về “Cho N thuộc Z (N<10^6). mảng A gồm N phần tử (a1,a1,..an). Nhập từ bàn phím tính trung bình các phân tử chẵn”

1. program trungbinh;

   uses crt;

   var A:array[1..1000000] of integer;

         n,i,d:integer;

         t:longint;

   begin

        clrscr;

        write(‘Nhap so luong phan tu n: ‘);  readln(n);

        t:=0;  d:=0;

        for i:=1 to n do

             begin

                  write(‘A[‘,i,’]= ‘);    readln(A[i]);

                  if A[i] mod 2=0 then

                       begin

                            t:=t+A[i];

                            d:=d+1;

                       end;

             end;

        if d=0 then write(‘Khong co so chan de tinh trung binh’)

        else write(‘Trung binh cong cac so chan la: ‘,t/d:2:2);

        readln;

   end.

   Bình luận

2. uses crt;

   var n,i,d:longint;

   a:array[0..1000000] of integer;

       tbc:real;

   BEGIN

           clrscr;

           write(‘Nhap N:’); readln(n);

           tbc:=0;     d:=0;

           for i:=1 to n do

           begin

                   write(‘Nhap a[‘,i,’]:’);

                   readln(a[i]);

                   if a[i] mod 2 =0 then

                   begin

                           tbc:=tbc+a[i];

                           inc(d);

                   end;

           end;

           write(‘Trung binh cong cac phan tu chan:’,tbc/d:0:3);

           readln

   END.

   Chúc bạn học tốt!

   Bình luận