Gõ chương trình theo lệnh for…do bài 1 Bài thực hành 6 tr 68

program tinh_trung_binh;

uses crt;

var X:array[1..100] 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(X[i]);

               t:=t+X[i];

          end;

     write(‘Trung binh cong cac so trong day la: ‘,t/n:2:2);

     readln;

end.