Vứt chương trình sử dụng lệnh lặp for…do hoặc while…do để tính trung bình của n điểm tin t1, t2,……tn. Với N vf điểm tin t1, t2,…..tn được nhập vào từ bàn phím
Vứt chương trình sử dụng lệnh lặp for…do hoặc while…do để tính trung bình của n điểm tin t1, t2,……tn. Với N vf điểm tin t1, t2,…..tn được nhập vào từ bàn phím
program BT;
uses crt;
var T:array [1..500] of integer;
n,i: integer;
TB: real;
Begin
clrscr;
write(‘Nhap so lan duoc diem Tin: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap diem Tin thu ‘,i,’: ‘); readln(T[i]);
TB:=TB+T[i];
end;
write(‘Trung binh cua ‘,n,’ so lan duoc diem Tin = ‘,TB/n:2:1);
readln
End.
var tb: real;
a: array[1..20] of real;
i, n: byte;
Begin
Write(‘co bao nhiem diem tin? ‘);
Readln(n); TB:=0;
For i:=1 to n do
Begin
Write(‘nhap diem tin thu ‘, i, ‘: ‘);
Readln(a[i]); tb:=tb+a[i];
End;
Tb:=tb/n;
Write(‘diem trung binh: ‘, tb:6:2);
Readln
End.