Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trường

Lập trình pascal ạ mn giúp mình với

Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:42

uses crt;

var a:array[1..100]of real;

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

for i:=1 to n do

  if a[i]>=8 then inc(dem);

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Trường
Xem chi tiết
Trường
Xem chi tiết
Trường
Xem chi tiết
hang viet
Xem chi tiết
Ngoc Anh Nguyen
Xem chi tiết
Đức Kiên
Xem chi tiết
Hoài thịnh
Xem chi tiết
Trần Văn Long
Xem chi tiết
Trường
Xem chi tiết