Question

Probleme de numărare a elementelor cu anumite proprietăți(Dau coroniță și 50 de puncte)Vă rog .Prblema 1,2,5,6,7

Answer 1

1.
var

 A:array[1..100] of integer;
 i,n,nr:integer;
 
begin

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i]>0) then
    nr+=1;
  end;
  
 write(nr);

end.


2.
var

 A:array[1..100] of integer;
 i,n,nr0,nr1:integer;
 
begin

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i]=1) then nr1+=1
    else nr0+=1;
  end;
  
 write(nr0,' ',nr1);

end.


5.
var

 A:array[1..100] of integer;
 M,n,i,nr:integer;
 
begin

 read(M,n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i] mod M = 0) then 
    nr+=1;
  end;
  
 write(nr);

end.


6.
var

 A:array[1..100] of integer;
 n,i,nr1,nr2:integer;
 
begin

 read(n);
 
 for i:=1 to n do
  read(a[i]);
  
 for i:=1 to n do
  begin
   if(a[i]<>a[1]) then nr1+=1;
   if(a[i]<>a[n]) then nr2+=1;
  end;
  
 writeln('a)',nr2);
 write('b)',nr1);

end.


7.
var

 A:array[1..100] of real;
 n,i,nr:integer;
 min:real;
 
begin

 read(n);
 
 min:=MaxReal;
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i]<min) then
    begin
     min:=a[i];
     nr:=1;
    end
   else if(a[i]=min) then
    nr+=1;
  end;
  
 writeln(nr);

end.