Bạn nào giả đầu đủ bài này giúp mình với mình cảm ơn nhiều. Tính trung bình cộng các giá trị của mảng?

0 bình luận về “Bạn nào giả đầu đủ bài này giúp mình với mình cảm ơn nhiều. Tính trung bình cộng các giá trị của mảng?”

1. uses crt;
   var a:array[1..1000] of integer;i,n:integer;tc:longint;tbc:real;
   BEGIN
   clrscr;
   write(‘Nhap n: ‘);readln(n);
   for i:=1 to n do begin
    Write(‘Nhap phan tu thu ‘,i,’ : ‘);readln(a[i]); end;
   for i:=1 to n do
    tc:=tc+a[i];
   tbc:=tc/n;
   writeln(‘Trung binh cong cac phan tu trong mang la: ‘,tbc:6:3);
   readln
   END.

   Trả lời