Question

Vă roog rezolvațiiii

Answer 1

1.
var

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

 read(n);
 p:=1;
 
 for i:=1 to n do
  begin
   read(a[i]);
   s+=a[i];
   p*=a[i];
  end;
  
 writeln(s);
 writeln(p);

end.

2.
var

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

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

 writeln(p);

end.

3.
var

 X:array[1..100] of integer;
 i,n,s,p:integer;
 
begin

 read(n);
 p:=1;
 
 for i:=1 to n do
  begin
   read(x[i]);
   if(i mod 2 = 0) then
    s+=x[i]
   else 
    p*=x[i];
  end;

 writeln(s);
 writeln(p);

end.

4.
var

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

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(i mod 2 = 0) then
    begin
     s1+=a[i];
     n1+=1;
    end
   else
    begin
     s2+=a[i];
     n2+=1;
    end;
  end;

 writeln(s1/n1);
 writeln(s2/n2);

end.

5.
var

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

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i]>0) and (i mod 2 = 0) then
    s+=a[i];
  end;

 writeln(s);

end.

6.
var

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

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i] mod 5 = 0) then
    s+=a[i];
  end;

 writeln(s);

end.

7.
var

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

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i] mod 3 = 0) and (a[i] mod 7 = 0) then
    s+=a[i];
  end;

 writeln(s);

end.

8.
var

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

 read(n);
 
 for i:=1 to n do
  begin
   read(a[i]);
   if(a[i]>max) then 
    max:=a[i];
  end;
  
 for i:=1 to n do
  if(a[i]<max) then
   s+=a[i];

 writeln(s);

end.