Viết chương trình nhập điểm môn Tin và môn Toán cho N bạn( n được nhập từ bàn phím) rồi đếm xem có bao nhiêu bạn có điểm môn toán và môn tin >=8.0

Cẩm Nhung Hỏi từ APP VIETJACK

· 17:40 09/05/2022

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

4 năm trước

uses crt;
var a,b: array [1..1000] of integer;
i,n,dem,d: longint;
begin
clrscr;
write('Nhap so luong hoc sinh: '); readln(n);
dem:=0;

d:=0;
for i:=1 to n do
begin
write('nhap diem hoc sinh toan thu ',i,': '); readln(A[i]);
if A[i]>=8 then dem:=dem+1;

write('nhap diem hoc sinh tin thu ',i,': '); readln(B[i]);
if B[i]>=8 then d:=d+1;
end;
Write('So luong hoc sinh toan tu 8 diem tro len la: ',dem);

Write('So luong hoc sinh tin tu 8 diem tro len la: ',d);
readln;
end.

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?