Viết chương trình nhập điểm Toán của các bạn trong một lớp. Sau đó tính điểm trung bình của cả lớp theo môn Toán. Đếm xem có bao nhiêu bạn môn Toán đạt học sinh giỏi?
Pls :((
Viết chương trình nhập điểm Toán của các bạn trong một lớp. Sau đó tính điểm trung bình của cả lớp theo môn Toán. Đếm xem có bao nhiêu bạn môn Toán đạt học sinh giỏi?
Pls :((
program Toan;
uses crt;
var n,i,d: integer;
toan,TB: real;
Begin
clrscr;
write(‘Nhap so hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap diem Toan cua HS thu ‘,i,’: ‘); readln(toan);
TB:=TB+toan;
if toan>=8 then d:=d+1;
end;
writeln(‘Trung binh mon Toan ca lop: ‘,TB/n:2:2);
write(‘Co ‘,d,’ ban dat HSG Toan’);
readln
End.
var a: array[1..50] of real;
i, n, d: byte;
tb: real;
Begin
Write(‘nhap so luong hoc sinh: ‘);
Readln(n); tb:=0; d:=0;
For i:=1 to n do
Begin
Write(‘nhap diem cua hoc sinh thu ‘, i, ‘: ‘);
Readln(a[i]); tb:=tb+a[i];
If a[i]>=8.0 then inc(d);
End;
tb:=tb/n;
Writeln(‘diem toan trung binh: ‘, tb:6:2);
Write(‘co ‘, d, ‘ hoc sinh gioi toan’);
Readln
End.