Viết chương trình nhập vào một mảng gồm n số tự nhiên, in ra màn hình trung bình các số chẵn.

0 bình luận về “Viết chương trình nhập vào một mảng gồm n số tự nhiên, in ra màn hình trung bình các số chẵn.”

1. program tb_chan;

   uses crt;

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

         n,i,t,d:integer;

   begin

         clrscr;

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

         t:=0;  d:=0;

         for i:=1 to n do

               begin

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

                     if A[i] mod 2=0 then

                           begin

                                 t:=t+A[i];

                                 d:=d+1;

                           end;

               end;

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

         readln;

   end.

   Bình luận

2. uses crt;

   var a:array[1..50]of real;

   i,n:integer;

   begin

   clrscr;

   write(‘Nhap so hoc sinh:’); readln(n);

   for i:=1 to n do

     begin

   write(‘Nhap diem cua ban thu ‘,i,’:’); readln(a[i]);

   end;

   for i:=1 to n do 

     writeln(‘Diem cua ban thu ‘,i,’ la: ‘,a[i]:4:2);

   readln;

   end.

   Bình luận