Giúp em với ạ
Viết chương trình nhập vào điểm các bạn lớp em gồm 5 môn: Toán, Tin, lý, hóa, Anh văn. (điểm là một số thực từ 0 đến 10 ). Sau đó in ra màn hình:
Điểm trung bình của tất cả các bạn.(Điểm trung bình bằng tổng điểm của 5 môn đã nhập và chia 5 và làm tròn đến chữ số thập phân thứ nhất) .
Các điểm trung bình từ 5.0 trở lên.
Các điểm trung bình nhỏ hơn 5.0 .
Điểm trung bình của bạn học giỏi nhất lớp.
Điểm trung bình của bạn học kém nhất lớp.
Em hãy hoàn thiện chương trình sau và gõ vào máy tính:
Program Hotenhocsinhlop;
uses crt;
var n,i,j: integer;
cao, thap: real;
Toan, van, ly, sinh, hoa, DTB: array[1..100] of real;
begin
clrscr;
Write(‘Nhap vao so hoc sinh cua lop em: ‘); Readln(n);
Writeln(‘Nhap diem cho cac ban lop em:’);
For i:=1 to n do
begin
Writeln(‘Nhap diem cho ban thu ‘,i, ‘ : ‘);
Write(‘Nhap diem toan: ‘); Readln(Toan[i]);
Write(‘Nhap diem van: ‘) ; Readln(van[i]);
Write(‘Nhap diem ly: ‘) ; Readln(……);
Write(‘Nhap diem sinh: ‘); Readln(……..);
Write(‘Nhap diem hoa: ‘) ; Readln(…….);
DTB[i]:=(Toan[i]+van[i]+….+…..+…..)/5;
end;
{a}Writeln(‘a. Diem trung binh cua tat ca cac ban lop em la: ‘);
For i:=1 to n do
Writeln(‘Diem trung binh cua ban thu ‘,i, ‘la: ‘, DTB[i]:4:1);
{b}Writeln(‘b. Diem trung binh cua tat ca cac ban lop em co DTB tu 5.0 tro len la: ‘);
For i:=1 to n do if DTB[i]>=5.0 then
Writeln(‘Diem trung binh cua ban thu ‘,i, ‘la: ‘, ………);
{c}Writeln(‘Diem trung binh cua tat ca cac ban lop em co DTB duoi 5.0 la: ‘);
For i:=1 to n do if DTB[i]<5.0 then
Writeln('Diem trung binh cua ban thu ',i, 'la: ', ...........);
{d,e} cao:=DTB[1]; thap:=DTB[1];
for i:=2 to n do
begin
if cao
end;
Writeln(‘d. Diem trung binh cua ban hoc gioi nhat lop em la: ‘, ………….);
Writeln(‘ e. Diem trung binh cua ban hoc kem nhat lop em la: ‘, ………….);
Readln;
end.
*Chỗ in đậm là chỗ điền vào nhé.
Program Hotenhocsinhlop;
uses crt;
var n,i,j: integer;
cao, thap: real;
Toan, van, ly, sinh, hoa, DTB: array[1..100] of real;
begin
clrscr;
Write(‘Nhap vao so hoc sinh cua lop em: ‘); Readln(n);
Writeln(‘Nhap diem cho cac ban lop em:’);
For i:=1 to n do
begin
Writeln(‘Nhap diem cho ban thu ‘,i, ‘ : ‘);
Write(‘Nhap diem toan: ‘); Readln(Toan[i]);
Write(‘Nhap diem van: ‘) ; Readln(van[i]);
Write(‘Nhap diem ly: ‘) ; Readln(ly[i]);
Write(‘Nhap diem sinh: ‘); Readln(sinh[i]);
Write(‘Nhap diem hoa: ‘) ; Readln(hoa[i]);
DTB[i]:=(Toan[i]+van[i]+ly[i]+sinh[i]+hoa[i])/5;
end;
{a}Writeln(‘a. Diem trung binh cua tat ca cac ban lop em la: ‘);
For i:=1 to n do
Writeln(‘Diem trung binh cua ban thu ‘,i,’ la: ‘, DTB[i]:4:1);
{b}Writeln(‘b. Diem trung binh cua tat ca cac ban lop em co DTB tu 5.0 tro len la: ‘);
For i:=1 to n do if DTB[i]>=5.0 then
Writeln(‘Diem trung binh cua ban thu ‘,i,’ la: ‘,DTB[i]:4:1);
{c}Writeln(‘Diem trung binh cua tat ca cac ban lop em co DTB duoi 5.0 la: ‘);
For i:=1 to n do if DTB[i]<5.0 then
Writeln(‘Diem trung binh cua ban thu ‘,i,’ la: ‘,DTB[i]:4:1);
{d,e} cao:=DTB[1]; thap:=DTB[1];
for i:=2 to n do
begin
if cao<DTB[i] then cao:= DTB[i];
if thap>DTB[i] then thap:= DTB[i];
end;
Writeln(‘d. Diem trung binh cua ban hoc gioi nhat lop em la: ‘,cao:4:1);
Writeln(‘e. Diem trung binh cua ban hoc kem nhat lop em la: ‘,thap:4:1);
Readln;
end.
Write(‘Nhap diem ly: ‘) ; Readln(ly[i]);
Write(‘Nhap diem sinh: ‘); Readln(sinh[i]);
Write(‘Nhap diem hoa: ‘) ; Readln(hoa[i]);
DTB[i]:=(Toan[i]+van[i]+ly[i]+sinh[i]+hoa[i])/5;
Writeln(‘Diem trung binh cua ban thu ‘,i,’ la: ‘, DTB[i]:4:1);
Writeln(‘Diem trung binh cua ban thu ‘,i,’ la: ‘,DTB[i]:4:1);
Writeln(‘Diem trung binh cua ban thu ‘,i,’ la: ‘,DTB[i]:4:1);
Writeln(‘d. Diem trung binh cua ban hoc gioi nhat lop em la: ‘,cao:4:1);
Writeln(‘e. Diem trung binh cua ban hoc kem nhat lop em la: ‘,thap:4:1);