cho dãy a1 -.a100 viết chương trình đếm xem có bao nhiêu số 0 trong dãy

Question

cho dãy a1 .....a100 viết chương trình đếm xem có bao nhiêu số 0 trong dãy

minhthue · Answer

program ct;

uses crt;

var d,i:integer;

A:array[1..100] of integer;

begin

clrscr;

write(‘nhap 100 so nguyen tu ban phim’);

for i:=1 to 100 do

begin

write(‘nhap mang A[‘,i,’]=’); readln(A[i]);

end;

d:=0;

for i:=1 to 100 do

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

writeln(‘co’, d,’ so 0 trong day’);

readln

khanhchau · Answer

uses crt;

var i,dem:integer;

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

begin

clrscr;

writeln(‘Nhap 100 so nguyen: ‘);

dem:=0;

for i:= 1 to 100 do

begin

write(‘a[‘,i,’] = ‘);

readln(a[i]);

If a[i] = 0 then inc(dem)

end;

writeln(‘Day so tren co ‘,dem,’ so 0 ‘);

readln;

end.