Viết phương trình tính trung bình cộng của 1 dãy số có n phần tử

0 bình luận về “Viết phương trình tính trung bình cộng của 1 dãy số có n phần tử”

1. program ct;

   uses crt;

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

   readln

   end.

   Bình luận

2. var a:array[1..50] of integer;
   i,n:integer;
   s,tb:real;
   begin
   s:=0;
   write(‘Nhap phan tu mang’); readln(n);
   for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(A[i]);  end;

   for i:=1 to n do s:=s+A[i];
   tb:=s/n;
   write(‘Trung binh cong la’,tb:3:2);
   readln
   end.

   Bình luận