Question

Viết chương trình nhập số N số thực từ bàn phím vào một mảng tình trung bình cộng các số vừa nhập

Answer 1

program TinhTBC;

uses crt;

var

      N, i: integer;

      Tong, TBC : real;

      A: array[1..100] of real;

begin

      write('Nhap so phan tu mang N = ');

      readln(N);

      writeln('Nhap cac phan tu cua mang: ');

      for i:=1 to N do

      begin

            write('A[', i, '] = ');

            readln(A[i]);

      end;

      Tong := 0;

      for i:=1 to N do

            Tong := Tong + A[i];

      TBC := Tong / N;

      writeln('Tong cac phan tu: ', Tong:5:2);

      writeln('Trung binh cong: ', TBC:5:2);

      readln;

end.