Em hãy viết chương trình nhập vào 1 dãy các số nguyên ( sd khai báo biến mảng và tính trung bình cộng các số vừa nhập rồi in kết quả ra màn hình

0 bình luận về “Em hãy viết chương trình nhập vào 1 dãy các số nguyên ( sd khai báo biến mảng và tính trung bình cộng các số vừa nhập rồi in kết quả ra màn hình”

1. program ct;

   uses crt;

   var i,n,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:10;2);

   readln

   end.

   Bình luận

2. uses crt;
   var n,i,s:longint; a:array[1..100]of longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do
         begin
            readln(a[i]);
            inc(s,a[i]);
         end;
      writeln(s/n:0:2);
   readln
   end.

   Bình luận