Question

Se considera tabelul A[1...n] n<=100.Sa se scrie un program care numara cite zerouri si cite unitati contine acest tablou!

Answer 1

var

 A:array[1..100] of integer;
 i,n,n1,n2:shortint;
 
begin

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i]=0) then
    n1+=1;
   if(a[i]<10) and (a[i]>-10) then
    n2+=1;
  end;
  
 writeln(n1,' ',n2); 

end.