Đề: Viết CT nhập vào số học sinh một lớp, tên và điểm của học sinh tương ứng. Xét loại học sinh theo cơ cấu sau : + Nếu điểm ≥ 8 thì xếp loại giỏi + Nếu điểm < 8 thì xếp loại kém sau đó xếp số học sinh loại giỏi và loại kém thành 2 nhóm khác nhau. in ra tên các học sinh thuộc lo

iiloveanime47

2 năm trước

Đề: Viết CT nhập vào số học sinh một lớp, tên và điểm của học sinh tương ứng. Xét loại học sinh theo cơ cấu sau : + Nếu điểm ≥ 8 thì xếp loại giỏi + Nếu điểm < 8 thì xếp loại kém sau đó xếp số học sinh loại giỏi và loại kém thành 2 nhóm khác nhau. in ra tên các học sinh thuộc loại giỏi và kém Lưu ý: dùng Mảng và câu lệnh lặp nếu có thể

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

hoducthienanlop9a5

uses crt;

var diem, gioi, kem:array[1..50]of integer;

ten:array[1 .. 50]of string;

i,i1,i2,n:integer;

begin

clrscr;

writeln('nhap so hoc sinh');readln(n);i1=0;i2=0;

for i:=1 to n do begin

writeln('nhap ten hoc sinh thu ',i);

readln(ten[i]);

writeln('nhap diem hoc sinh thu i');

readln(diem[i]);

if diem[i]>=8 then begin i1:=i1+1;gioi[i1]:=i; end

else begin i2:=i2+1;kem[i2]:=i; end;

end;

writeln('hoc sinh gioi');

for i:=1 to i1 do

writeln(ten[gioi[i]]);

writeln('hoc sinh kem');

for i:=1 to i2 do

writeln(ten[kem[i]]);

readln;

end.

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

toquyen1977

uses crt;
var i,j,n,dem,dem1:integer;a:array[1..100]of integer;
begin
dem:=0;
dem1:=0;
clrscr;
write('nhap tong so hoc sinh: ');readln(n);
for i := 1 to n do
write('nhap diem tung hoc sinh: ');readln(a[i]);
for i := 1 to n do
begin
if a[i] >= 8 then
begin
inc(dem);
write('so hoc sinh gioi la: ',dem);
end;
if a[i] < 8 then
begin
inc(dem1);
write('so hoc sinh kem la: ',dem1);
end;
end;
readln;
end.

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

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

: Yêu thương con người sẽ nhận được điều gì? A. Mọi người yêu quý và kính trọng. B. Mọi người kính nể và yêu quý. C. Mọi người coi thường. D. Mọi người xa lánh.

Cho cơ thể của một loài có kiểu gen là AaBbDdXX. Khi giảm phân bình thường thì cơ thể đó có thể tạo ra nhiều nhất là bao nhiêu loại giao tử? Viết kí hiệu các loại giao tử đó.

Hãy tưởng tượng và kể lại tâm sự của 1 cuốn sách bị bỏ quên (Tầm 2/3 trang thui.Mình cần gấp)

Because of not trying his best, he failed the exam => Because

Question 34: There are forty students in my class. My cla

Đánh giá của em về công trình cổ loa của dân Au Lạc? Là hs e phải lm gì để bảo vệ văn hóa địa phương

khi xảy ra sấm chớp.một người quan sát đúng trêm mặt đất nhìn thấy chớp sáng rồi mới nghe thấy tiếng sấm .a hãy giải thích tại sao nghe thấy tiếng sấm sau khi nhỉn thấy tia chớp sáng.mặc dầu tiếng sấm và tia chớp sinh ra cùng 1luc btính khoảng cách từ nơi xảy ra sấm chớpđến người quan sát .biết sau biết sau khi nhìn thấy tia chớp được t=3 giây thì người quan sat mới nghe được tiếng sấm vận tốc âm truyền trong không khí là v=340m/s

Làm hộ mình bài HÌNH nhé, mình đang cần gấp. Hứa vote5 sao và tym

Cho 🔼ABC có AB =ÁC gọi M là trung điểm của cạnh BC a) Chứng minh 🔼ABM = 🔼ACM b) Chứng minh AM vuông góc BC c) lấy điểm I nằm giữa 2 điểm A và M. Chứng minh BI = CI

Huhu. Buồn quá mấy pác ơi. Chi tạch Toán rk Vẽ anime buồn nha

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