Question

Cho số nguyên dương N và dãy a1a2...aN. hãy kiểm tra xem trong dãy có giá trị nào bằng 0 hay không?

Mọi người giúp em với ạ. Mai em kiểm tra rồi. Em xin cảm ơn ạ!!

Answer 1

Program hotrotinhoc_hoc24;

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

d,i,n: integer;

begin

write('Nhap so nguyen duong N : '); readln(n);

d:=0;

for i:=1 to n do

begin

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

if a[i]=0 then d:=d+1;

end;

if d>0 then write('Trong day co gia tri bang 0') else write('Trong day khong co gia tri bang 0');

readln

end.