Viết chương trình nhập vào một mảng các số nguyên ghim màn hình giá trị trung bình cộng của mảng đó

0 bình luận về “Viết chương trình nhập vào một mảng các số nguyên ghim màn hình giá trị trung bình cộng của mảng đó”

1. uses crt;

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

   i,n: integer;

   tbc: real;

   begin

   clrscr;

   write (‘nhap so phan tu: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

   tbc:=tbc+a[i];

   end;

   tbc:=tbc/n;

   writeln (‘gia tri trung binh: ‘,tbc);

   readln;

   end.

   Bình luận

2. uses crt;
   var i,n,s:longint; a:array[1..100]of longint; 
   begin
   clrscr;
      write(‘Nhap so luong phan tu: ‘);readln(n);
      for i:=1 to n do 
         begin
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
            s:=s+a[i];
         end;
      writeln(‘Trung binh cong: ‘,s/n:0:2);
   readln
   end.

   Bình luận