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

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!)

0 bình luận về “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”

  1. 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!!!

    Bình luận
  2. 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.

    Bình luận

Viết một bình luận