Nhập n giá trị bất kì, tính trung bình cộng số chẵn, số lẽ ai đó giúp mình đi mai mìn thi rồiiiiii????

0 bình luận về “Nhập n giá trị bất kì, tính trung bình cộng số chẵn, số lẽ ai đó giúp mình đi mai mìn thi rồiiiiii????”

1. Program ss;

   Var a:array[1..100] of integer;

   n,i,d1,d2:integer;

   tbcc,tbcl:real;

   Begin

   Write(‘Nhap so phan tu’); readln(n);

   for i:=1 to n do

   begin

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

   End;

   tbcc:=0; tbcl:=0;

   For i:=1 to n do

   begin

   if a[i] mod 2=0 then tbcc:=tbcc+a[i]; inc(d1);

   if a[i] mod 2<>0 then tbcl:=tbcl+a[i]; inc(d2);

   end;

   tbcc:=tbcc/d1;

   tbcl:=tbcl/d2;

   Writeln(‘TBC cac so chan la: ‘,tbcc:4:2);

   writeln(‘tbc cac so le la: ‘,tbcl:4:2);

   readln;

   end.

   Bình luận

2. program TBC_chan;

   uses crt;

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

         n,i,TBc,dc,Tbl,dl: integer;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

                     write(‘Nhap gia tri thu ‘,i,’: ‘); readln(A[i]);

                     if A[i] mod 2=0 then

                     begin

                              TBc:=TBc+A[i];

                              dc:=dc+1;

                     end;

                     if A[i] mod 2<>0 then

                     begin

                              TBl:=TBl+A[i];

                              dl:=dl+1;

                     end;

            end;

            writeln(‘Trung binh cong cac so chan: ‘,TBc/dc:2:2);

            write(‘Trung binh cong cac so le: ‘,TBl/dl:2:2);

            readln

   End.

   Bình luận