NH

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 

NT
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.

Bình luận (0)

Các câu hỏi tương tự
SV
Xem chi tiết
TH
Xem chi tiết
NB
Xem chi tiết
DA
Xem chi tiết
NN
Xem chi tiết
AZ
Xem chi tiết
NQ
Xem chi tiết
MC
Xem chi tiết
TH
Xem chi tiết