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

   end.

   Bình luận