Tính điểm trung bình của từng học sinh
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
const fi='vanban.txt';
var f1:text;
a,b,c,tb:array[1..100]of real;
ln:real;
n,i:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(a[n],b[n],c[n]);
end;
for i:=1 to n do tb[i]:=(a[i]+b[i]+c[i])/3;
for i:=1 to n do
writeln(tb[i]:4:2);
ln:=0;
for i:=1 to n do
if ln<tb[i] then ln:=tb[i];
writeln(ln:4:2);
close(f1);
readln;
end.
Số HS đạt loại khá:
300% x 5= 15(HS)
Tỉ số tổng số HS giỏi so với tổng số HS cả lớp bằng:
1 - 1/2= 1/2 (tổng số HS)
Vậy lớp có số HS giỏi là:
5+15=20(HS)
Số HS của cả lớp là:
20: 1/2= 40(HS)
Program HOC24;
var Toan,Ly,Tin,TBMToan,TBMLy,TBMTin: real;
i,n: byte;
begin
write('Nhap so ban hoc sinh trong lop: '); readln(n);
for i:=1 to n do
begin
write('Nhap diem Toan; Ly; Tin cua ban thu ',i,': ');
readln(Toan[i],Ly[i],Tin[i]);
end;
TBMToan:=0; TBMLy:=0; TBMTin:=0;
For i:=1 to n do
begin
TBMToan:=TBMToan+Toan[i];
TBMLy:=TBMLy+Ly[i];
TBMTin:=TBMTin+Tin[i];
end;
writeln('Diem trung binh mon Toan la: ',TBMToan:5:1);
writeln('Diem trung binh mon Ly la: ',TBMLy:5:1);
writeln('Diem trung binh mon Tin la: ',TBMTin:5:1);
For i:=1 to n do
writeln('Diem trung binh 3 mon cua ban thu ',i,' la: ',TBMToan+TBMLy+TBMTin:5:1);
Readln
end.
Tính điểm trung bình của từng học sinh
- Tính điểm trung bình của một học sinh: G2=AVEREGE(C2:F2)
- Sao chép công thức cho các học sinh khác