Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Ngọc Hà

Cho dãy hữu hạn A1: An ( n<=100) kiểu số nguyên. Hãy cho biết có bao nhiêu phần tử có giá trị là 5 trong dãy trên 

Nguyễn Lê Phước Thịnh
1 tháng 4 2021 lúc 22:36

uses crt;

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

i,dem,n: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]=5 then inc(dem);

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Sơn Võ
Xem chi tiết
Trần Văn Việt Hùng
Xem chi tiết
Nguyễn Công Bằng
Xem chi tiết
ĐOÀN ĐỨC ANH
Xem chi tiết
Nguyễn Thị Thanh Nhàn
Xem chi tiết
anh đẹp zai
Xem chi tiết
Nguyễn Anh Quân
Xem chi tiết
Mộng Chúc
Xem chi tiết
Trần Nguyễn Huỳnh
Xem chi tiết