viết dùm chương trình này nha(cùng trong 1 chương trình) a) nhập điểm miệng môn toán của n học sinh trong 1 lớp(1<=n<=50) b) In ra 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ệ % của số học sinh giỏi d) In ra số học sinh bị điểm dưới 5 và tỉ lệ % e

phanminhtamc3chilang

2 năm trước

viết dùm chương trình này nha(cùng trong 1 chương trình) a) nhập điểm miệng môn toán của n học sinh trong 1 lớp(1<=n<=50) b) In ra 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ệ % của số học sinh giỏi d) In ra số học sinh bị điểm dưới 5 và tỉ lệ % e) Sắp xếp dãy điểm trên theo thứ tự tăng dần

Loga Sinh Học lớp 12

0 lượt thích 13 xem

1 trả lời

Thích Trả lời

laylaa

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
Repeat
Write(' Nhap diem mon toan cho hs[',i,'] = '); Readln(hs[i]);
{c1} until (hs[i]<=10);
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;
Write('So hoc sinh gioi la: ',hsg,'. Ti le chiem: ',hsg/n*100:0:0,'%');
Writeln;
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

nguyenthibaoha53

uses crt;
var i,n,j,t,hsg,k:longint; a:array[1..100000]of longint;
begin
clrscr;
write('a) Nhap N: ');readln(n);
for i:=1 to n Do
begin
write('Nhap diem mon toan cua ban thu ',i,': ');readln(a[i]);
if a[i]>=8 then inc(hsg);
if a[i]<5 then inc(k);
end;
write('b) Thu tu cua cac hoc sinh co diem lon nhat: ');
for i:=1 to n Do
for j:=1 to i Do
if a[i]<a[j] then
begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:=1 to n Do write(a[i],' '); writeln;
writeln('c) So hoc sinh gioi: ',hsg,'; Ti le: ',hsg/n*100:0:0,'%');
writeln('d) So hoc sinh bi diem duoi 5: ',k,'; Ti le: ',k/n*100:0:0,'%');
readln
end.

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

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

Trên cung một nửa mặt phẳng bờ chứa tia Ox, vẽ tia Oy sao cho góc xOy có số đo là 70 độ. Gọi Oz là tia đối của tia Ox. a) Tính góc yoz ? b)Gọi Ot là tia phân giác của góc xOy. Tính góc zOt? c) Gọi tia Om nằm giữa Oz và Oy sao cho góc zOm bằng 50 độ. Tính góc mOy?

Giải Giúp mình với mình cần gấp . mik sẽ vot 5 sao

Mọi người làm hộ mk với ạ . mk cảm ơn

Chính sách kinh tế trong cuộc khai thác thuộc địa lần thứ nhất có tác động gì đến nước ta?(tác động tiêu cực,tích cực).

Đặc điểm nổi bật của đô thị hóa ở Bắc Mỹ (đặc biệt là Hoa Kỳ)

Mọi người làm hộ mk với ạ . mk cảm ơn bài ex1

Cho 12g hỗn hợp hai kim loại Cu Fe tan hoàn toàn trong H2SO4 đặc nóng dư thu được 5,6 lít SO2 sản phẩm khử duy nhất ở đktc và dung dịch X a Tính % khối lượng mỗi kim loại trong hỗn hợp ban đầu b dẫn khí thu được ở trên vào 500 ml dung dịch NAOH 2M tính khối lượng muối tạo thành c tính thể tích khí H2 thoát ra khi hỗn hợp trên tác dụng với H2SO4 loãng d tính khối lượng dung dịch H2SO4 98% đã dùng

giúp mình với!!! viết chương trình nhập vào n số nguyên tính tổng ,tích các số chẵn trong dãy số

Tìm GTNN của P= ║x-1║+2020║x-2║+2021

trình bày cấu tạo và chức năng của đại não người? đặc điểm tiến hóa của đại não người so với động vật thuộc lớp thú

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