Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Quang Trung Lê

viết phương trình nhập vào 1 mảng số nguyên n phần tử (n<=100) đếm các phần tử có giá rị dương. in kết quả ra màn hình.

( giải nhanh giùm em với ạ)

Nguyễn Lê Phước Thịnh
23 tháng 3 2021 lúc 20:03

uses crt;

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

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

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

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Linh Chi
Xem chi tiết
Nguyễn tiên
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Minh Hoạt
Xem chi tiết
nông thị ngân
Xem chi tiết
Trần Cương
Xem chi tiết
Nguyễn Hiếu
Xem chi tiết
Hạnh Lê
Xem chi tiết
Thu Hiền
Xem chi tiết