Hãy viết chương trình tính điểm trung bình của bạn học sinh, với số môn và điểm của môn là tùy thích nhập vào từ bàn phím. Sử dụng câu lệnh For…to…do
Hãy viết chương trình tính điểm trung bình của bạn học sinh, với số môn và điểm của môn là tùy thích nhập vào từ bàn phím. Sử dụng câu lệnh For…to…do
Program BTH;
uses crt;
var a: array [1..10000] of real;
n,i:longint;
tb:real;
begin
clrscr;
write(‘Nhap so mon: ‘);readln(n);
for i:=1 to n do
Begin
write(‘Nhap diem mon thu ‘,i,’: ‘); readln(a[i]);
tb:=tb+a[i];
end;
writeln(‘Diem TB cua ‘,n,’ mon la: ‘,tb/n:4:2);
readln;
end.
program oken;
uses crt;
var a: array [1..100] of real;
mon:byte;
tb:real;
begin
clrscr;
write(‘nhap so mon: ‘); readln(mon);
for i:=1 to n do
begin
write(‘nhap diem mon thu ‘,i,’: ‘); readln(a[i]);
tb:=tb+a[i];
end;
writeln(‘diem TB cua ‘,n,’: ‘,tb/n:0:3);
readln;
end.