Nhập vào 1 mạng gồm N số nguyên. Tính và đưa ra Trung bình cộng của giấy số

0 bình luận về “Nhập vào 1 mạng gồm N số nguyên. Tính và đưa ra Trung bình cộng của giấy số”

1. program ct;

   uses crt;

   var n,i,S:integer;

         TBC:real;

        A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n=’); readln(n);

   for i:=1 to n do

   begin

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

   end;

   S:=0;

   for i:=1 to n do

   begin

      S:=S+A[i];

      TBC:=S/n;

   end;

   writeln(‘trung binh cong la’,TBC:2:3);

   readln

   end.

   Trả lời

2. program tbc;

   uses crt;

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

         n,i:integer;

         s:longint;

   begin

   clrscr;

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

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   s:=0;

   for i:=1 to n do

    begin

     write(‘Phan tu thu ‘,i,’= ‘);

     readln(A[i]);

     s:=s+A[i];

    end;

   write(‘trung binh cong cua day so la: ‘,s/n:2:2);

   readln

   end.

   Trả lời