viết chương trình tính trung bình cộng của n số tự nhiên bất kì nhập từ bàn phím

0 bình luận về “viết chương trình tính trung bình cộng của n số tự nhiên bất kì nhập từ bàn phím”

1. uses crt;
   var A:array [1..1000] of integer;
       i,n:integer; S:real;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘); 
         readln(A[i]);
         S:=S+A[i];
      end;
      S:=S/n;
      writeln(‘Trung binh cong la: ‘,S:4:2);
   readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,s,n: longint;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang A: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘A[‘,i,’]: ‘); readln(a[i]);
                           s:=s+a[i];
                   end;
           writeln(‘TBC cua mang: ‘,s/n:0:3);
           readln;
   end.

   ${Oken}$

   Bình luận