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

0 bình luận về “cho dãy a1 -.a100 viết chương trình đếm xem có bao nhiêu số 0 trong dãy”

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

   Bình luận

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

   Bình luận