Viết ct pascal làm các nhiệm vụ sau: 1- Nhập vào từ bàn phím điểm KT học kì II môn tin của n hs trong 1 lớp 2- In ra màn hình số hs đạt điểm giỏi (điểm KT học kì II môn tin >

lamdo

2 năm trước

Viết ct pascal làm các nhiệm vụ sau: 1- Nhập vào từ bàn phím điểm KT học kì II môn tin của n hs trong 1 lớp 2- In ra màn hình số hs đạt điểm giỏi (điểm KT học kì II môn tin >_ 8.0)

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

thuuyenvu1310

Uses crt;
Var hs:array[1..1000] of real;
Gioi,i,n: integer;

Begin
Clrscr;
Write(' Nhap so luong hoc sinh vao: '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap diem TBHK II cua hs[',i,'] = '); Readln(hs[i]);
End;
For i:= 1 to n do
Begin
If hs[i] >=8.0 then Gioi:= Gioi + 1;
End;
Writeln;
Write(' So HSG mon tin cua lop nay la: ',Gioi);
Readln;
End.

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

ngbich.nguyen34

1. program b1;
uses crt;
var A:array[1..100] of integer;
i,n:integer;
begin
clrscr;
writeln('nhap so hoc sinh trong lop');
readln(n);
for i:=1 to n do
begin
writeln('nhap so diem cua hoc sinh ',i,' la');
readln(A[i]);
end;
readln;
end.

program b1;
uses crt;
var A:array[1..100] of integer;
i,n:integer;
S: real;
begin
clrscr;
S:=0;
writeln('nhap so hoc sinh trong lop');
readln(n);
for i:=1 to n do
begin
writeln('nhap so diem cua hoc sinh ',i,' la');
readln(A[i]);
end;
for i:=1 to n do
begin
if A[i] >= 8 then S:=S+i;
end;
writeln('so hoc sinh gioi la',S:2:1);
readln;
end.

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

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

để hòa nhập và hợp tác hiệu quả cần trang bị những kĩ năng cần trang bị những kĩ năng cần thiết nào ?

Cho mình hỏi Khối liên minh công - nông được hình thành từ phong trào 1930 - 1931 đánh dấu bằng sự kiện nào? (không được chép trên mạng) thank

Câu1- Giải thích”tại sao diễn thế thứ sinh có thể hình thành nên quần xã tương đối ổn định hay quần xã suy vong giai đoạn cuối”? Câu 2-Dựa vào mối quan hệ giữa các loài trong quần xã sinh vật em hãy giải thích tại sao trong chăn nuôi người ta có thể nuôi nhiều loài cá trong 1 ao nuôi cá? Giải giúp em với ạ

Viết đoạn văn khoảng 100 chữ về thành phố tương lai. Viết nhanh giùm em với ạ , em xin chân thành cảm ơn

Đọc đoạn văn sau và trả lời câu hỏi bên dưới Cũng vào khoảng cuối tháng ba, các cây sầu đâu mọc ở các vùng quê Bắc Kỳ đâm hoa và người ta thấy hoa sầu đâu nở như cười. Hoa nhỏ bé, lấm tấm mấy chấm đen, nở từng chum, đu đưa như đưa võng mỗi khi có gió. Có người cho hoa đó là một thứ hoa không vương giả như hoa đào, phong lan, mai mận…Nhưng các cụ thực biết thưởng hoa lại quả quyết không có một loài hoa nào thơm một cách chân thật, quê mùa như thế. a)Giải thích từ "vương giả" được dùng trong đoạn văn trên và cho biết từ "vương giả" thuộc loại từ gì? Tìm trong đoạn văn một từ trái nghĩa với từ "vương giả" b)Phân tích thành phần câu của câu văn được in đậm trong đoạn văn trên và cho biết theo cấu tạo,câu văn đó thuộc kiểu câu gì? c)Các câu văn trong đoạn văn trên được liên kết với nhau bằng những phép liên kết nào?Chỉ ra từ ngữ thể hiện phép liên kết đó

Tính A = 1 / 2.4 + 1 / 4.6 + ... + 1 / 48.50

Câu 1:pha thêm 55ml nước vào 30ml rượu 60 độ.Tính độ rượu mới Câu 2:pha thêm 15ml rượu vào 145ml rượu 30 độ.Tính độ rượu mới. Giúp mìh với mình cám ơn nhiều ạ

Mn ơi giúp mình vs,mai mình ktra.Thanks

🧚‍♀️giupssssssssssssssssssss zuiiuuuuu🧚‍♂️

Tại sai trong chỗ tối nấm vẫn phát triển được

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