Question

Viết chương trình Pascal sử dụng lệnh lặp for ... do để tính trung bình n số thực a₁,a₂....,a_n. Các số n và a₁,a₂....,a_n. được nhập từ bàn phím

Answer 1

var i,n,tb :integer;

begin

readln(n);

tb:=0;

for i:=1 to n do tb:=tb+1;

writeln(tb);

end.

Answer 2

program CTTTB;

uses crt;

var TB,x:real; n,y: integer;

begin

Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);

for y:=1 to n do

begin Write('Nhap so thu',y);Readln(x);

TB:=TB+x;

end;

TB:=TB/n;

Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);

Readln;

End.