a)Nhập vào điểm miễn môn toán của học sinh lớp
b)In ra theo thứ tự của các học sinh có điểm lớn nhất
c)In ra số học sinh giỏi và tỷ lệ phần trăm của số học sinh giỏi
d) in ra số học sinh bị điểm dưới 5 và tỷ lệ phần trăm
e)Sắp xếp dãy điểm trên theo thứ tự tăng dần
(Giúp mik vs, cảm ơn!)
Uses Crt;
Var hs:array[1..500] of integer;
i,j,n,tg,hsg,k:longint;
Begin
Clrscr;
{a)} Write(‘Nhap so ptu N= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘ Nhap diem mon toan cho hs[‘,i,’] = ‘); Readln(hs[i]);
{c1}If hs[i]>=8 then hsg:=hsg+1;
{d1} If hs[i]<5 then k:=k+1;
End;
Write(‘Thu tu cac hs co diem cao nhat: ‘);
For i:=1 to n-1 do
For j:=j+1 to n do
if hs[i]>hs[j] then
begin
tg:=hs[i];
hs[i]:=hs[j];
hs[j]:=tg;
end;
For i:= 1 to n do write(Hs[i],’ ‘); Writeln;
{c}Write(‘So hoc sinh gioi la: ‘,hsg,’. Ti le chiem: ‘,hsg/n*100:0:0,’%’);
Writeln;
{d} Write(‘So hoc sinh duoi diem 5 la: ‘,k,’. Ti le chiem: ‘,k/n*100:0:0,’%’);
Readln
End.
*Vì ý b= ý d nên mình sẽ không viết dài dòng nữa nhá! Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá. Thanks :333
*p/s: Hỏi và đáp,comment bên dưới!!!
program baitap;
Uses Crt;
Var a:array[1..100] of integer;
i,j,n,m,hsg,k:longint;
Begin
Clrscr;
Write(‘Nhap so ptu N= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘ Nhap diem mon toan cho hs[‘,i,’] = ‘); Readln(hs[i]);
If a[i]>=8 then hsg:=hsg+1;
If a[i]<5 then k:=k+1;
End;
Write(‘Thu tu cac hs co diem cao nhat: ‘);
For i:=1 to n-1 do
For j:=j+1 to n do
if a[i]>a[j] then
begin
m:=a[i];
a[i]:=a[j];
a[j]:=m;
end;
For i:= 1 to n do write(a[i],’ ‘);
Writeln;
Write(‘So hoc sinh gioi la: ‘,hsg,’. Ti le chiem: ‘,hsg/n*100,’%’);
Writeln;
Write(‘So hoc sinh duoi diem 5 la: ‘,k,’. Ti le chiem: ‘,k/n*100,’%’);
Readln;
End.