program Min; uses crt; var A:array[1..10] of real; tong,tb:real; i,dem:integer; begin clrscr; tong:=0; tb:=0; for i:=1 to 10 do begin write(‘Nhap diem cua hoc sinh ‘,i,’: ‘); readln(A[i]); end; for i:=1 to 10 do begin tong:=tong+A[i]; if A[i]>5 then inc(dem); end; tb:=tong/10; writeln(‘ ‘); writeln(‘Tong diem cua 10 hs la: ‘,tong:4:2); writeln(‘Diem trung binh cua 10 hs la: ‘,tb:4:2); writeln(‘So hoc sinh tren 5 diem la: ‘,dem); readln end.
Đây là code chương trình hoàn thiện cho ba câu a, b, c. Còn câu d thì mình không rõ lắm, như thế nào thì là học sinh giỏi, điều kiện là gì?
program Min;
uses crt;
var A:array[1..10] of real;
tong,tb:real;
i,dem:integer;
begin
clrscr;
tong:=0; tb:=0;
for i:=1 to 10 do
begin
write(‘Nhap diem cua hoc sinh ‘,i,’: ‘);
readln(A[i]);
end;
for i:=1 to 10 do
begin
tong:=tong+A[i];
if A[i]>5 then inc(dem);
end;
tb:=tong/10;
writeln(‘ ‘);
program Min;
uses crt;
var A:array[1..10] of real;
tong,tb:real;
i,dem:integer;
begin
clrscr;
tong:=0; tb:=0;
for i:=1 to 10 do
begin
write(‘Nhap diem cua hoc sinh ‘,i,’: ‘);
readln(A[i]);
end;
for i:=1 to 10 do
begin
tong:=tong+A[i];
if A[i]>5 then inc(dem);
end;
tb:=tong/10;
writeln(‘ ‘);
writeln(‘Tong diem cua 10 hs la: ‘,tong:4:2);
writeln(‘Diem trung binh cua 10 hs la: ‘,tb:4:2);
writeln(‘So hoc sinh tren 5 diem la: ‘,dem);
readln
end.
Đây là code chương trình hoàn thiện cho ba câu a, b, c. Còn câu d thì mình không rõ lắm, như thế nào thì là học sinh giỏi, điều kiện là gì?