Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lửa Sói

Viết phương trình nhập điểm Tin của n học sinh trong lớp em (n-số tự nhiên nhập từ bàn phím). Đếm và thông báo lên màng hình: lớp em có bao nhiêu bạn đạt giỏi (điểm từ 8 trở lên)

VD:

Nhập số họ sinh trong lớp là 4

Điểm bạn thứ 1: 3

Điểm bạn thứ 2: 4

Điểm bạn thứ 3: 7

Điẻm bạn thứ 4: 9

Số bạn học giỏi trong lớp là 1

Lưu ý: học sinh dùng mảng một chiều

Nguyễn Trung Hiếu
24 tháng 4 2019 lúc 20:16

uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
begin
clrscr;
write('Nhap so hoc sinh trong lop la ');readln(n);
for i:=1 to n do
begin
write('Diem ban thu',' ',i,': ');read(A[i]);
end;
for i:=1 to n do
if a[i]>=8 then d:=d+1;
writeln('So ban hoc sinh gioi trong lop la ',d);
readln;
end.

Bạn nhấn alt+f5 để hiện kết quả nha!!! ok


Các câu hỏi tương tự
Trịnh Uyển Nhi
Xem chi tiết
Dan_hoang
Xem chi tiết
Võ Văn Trường
Xem chi tiết
Minh Tâm Nguyễn Thị
Xem chi tiết
khong có
Xem chi tiết
Hồ Hoàng Long
Xem chi tiết
Võ Hoàng Luân
Xem chi tiết
T__T
Xem chi tiết
Nhật Linh Đặng
Xem chi tiết