Viết phương trình tính điểm trung bình n môn học của một học sinh với n điểm các môn học được nhập từ bàn phím (sử dụng biến mảng)
Viết phương trình tính điểm trung bình n môn học của một học sinh với n điểm các môn học được nhập từ bàn phím (sử dụng biến mảng)
program Mang;
uses crt;
var A:array [1..50] of integer;
n,i,TB: integer;
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;
write(‘Trung binh diem ‘,n,’ mon hoc cua mot hoc sinh = ‘,TB/n:2:1);
readln
End.
Program Diem_trung_binh;
Uses Crt;
Var a : array [1..30] of real;
TB : real;
n,i : integer;
Begin
Clrscr;
Write (‘Nhap luong mon hoc: ‘);
Read (n);
TB:=0;
For i :=1 to n do
Begin
Write (‘Nhap diem trung binh cua mon hoc thu ‘,i,’: ‘);
Read (a[i]);
TB:=TB+a[i];
End;
TB:=TB/n;
Writeln (‘Diem trung binh cua ‘,n,’ mon cua hoc sinh do là: ‘,TB:2:1);
End.