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,

anhbay

2 năm trước

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

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

chinguyenjamesji

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

Vote (0) Phản hồi (0) 2 năm trước

679344479504018

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Chỉ ra những hình ảnh trong đoạn trích quê hương tôi có con sông biếc.....Sông của Miền nam nước việt thân yêu

Viết chương trình để tính tổng các số tự nhiên cho đến khi tổng đó vượt qua 100 thì dừng lại Program tong uses crt War S, n:integer Begin S:=0,n:=1 While(s<=100) do begin s:=s+n,n:=n+1,end Writeln(' tong cac so tu nhien dau tien>100la: ',S) Readln End

Yêu cầu : Làm bài đúng, trình bày rõ ràng, đẹp. Bài trắc nghiệm sửa giùm mình nhé!

Viết ct Pascal thực hiện việc sau: nhập n học sinh trong lớp(0<n ≤50) In ra màn hình số lượng và tỉ lệ số học sinh đạt điểm giỏi (ĐTB ≥80)

Giúpl....l........?...........l

Chuyển các câu sau thành câu gián tiếp

Vẽ trên app môt cái j dố cổ vũ tôi đi thi đc điêm 10 đi

Cho ΔABC vuông tại A có AB<AC. Vẽ AH ⊥ AC tại H .Vẽ HI ⊥ AB tại I . Trên tia HI lấy điểm D sao cho I là trung điểm của DH: a)Chứng minh: ΔADI = ΔAHI b)Chứng minh: AD ⊥ BD c)Cho BH=90cm và HC=16cm.Tính AH d)Vẽ HK ⊥ AC tại K và trên tia HK lấy điểm E sao cho K là trung điểm của HE. Chứng minh: DE<BD + CE

1. Em hãy liên hệ tật cận thị ở lớp học, trường học của em. Em hãy cho biết nguyên nhân gây nên tật cận thị và biện pháp phòng tránh, khắc phục tật cận thị ở lứa tuổi học đường. 2. Thế nào là bệnh tiểu đường? Em hãy sơ đồ hóa quá trình điều hòa lượng đường trong máu bởi vai trò của hoocmon insulin và glucagon

ai làm ơi làm hộ em với em voice cho 5 sao

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến