Nêu thuật toán . Tính giá trị trung bình các dãy số-help me!!!!

0 bình luận về “Nêu thuật toán . Tính giá trị trung bình các dãy số-help me!!!!”

1. uses crt;
   var n,i ,tong,tb:integer;
   A,b:array[1..100] of integer;
   begin
   clrscr; tong:=0;
   writeln(‘nhap n’);
   readln(n);
   for i:=1 to n do
   begin
   writeln(‘nhap A[‘,i,’]’);
   readln(A[i]); tong:=tong+a[i];
   end;

   tb:=tong /n;

   writeln(‘gia tri trung binh cua day la ‘, tong);

   readln;

   end.

   Bình luận