viết ct sử dụng biến mảng để tính giá trị trung bình của N số nguyên được nhập từ bàn phím

0 bình luận về “viết ct sử dụng biến mảng để tính giá trị trung bình của N số nguyên được nhập từ bàn phím”

1. Program Tinh_gia_tri_trung_binh;

   Uses Crt;

   Var A: Array [1..100] of integer;

         N, s, i : integer;

   Begin

   Write (‘Nhap so nguyen N’);

   Readln (N);

   for i:=1 to N do

   Begin

   Write(‘A[‘,i,’]=’);

   Readln (A[i]);

   End;

   s:=0;

   for i:=1 to n do

   s:=s + A[i];

   Write (‘Gia tri trung binh la:’, s div n);

   Readln;

   End.

   Bình luận

2. program trung_binh;

   uses crt;

   var A:array[1..1000] of integer;

        n,i,t:integer;

   begin

          clrscr;

          write(‘Nhap N: ‘);  readln(n);

          t:=0;

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                        t:=t+A[i];

                 end;

          write(‘Trung binh cua N so nguyen la: ‘,t/n:0:3);

          readln;

   end.

   Bình luận