Type
 Ar=Array[1..35] of Real;

Const
 Nv=23;
 Nw=35;

Var
 V,W:Ar;
 i:byte;

Function Sum(Q:Ar; N:Byte):Real;
var
 t:byte;
 S:Real;
begin
 S:=0;
 for t:=1 to (N div 2) do S:=S+Q[2*t];
 Sum:=S;
end;

Begin
 Randomize;
 Writeln('Array V:');
 for i:=1 to Nv do
  begin
   V[i]:=Random*8-5.0;
   write(V[i]:8:2);
  end;
 Writeln;
 Writeln;
 Writeln('Array W:');
 for i:=1 to Nw do
  begin
   W[i]:=Random*11-3.0;
   write(W[i]:8:2);
  end;
 Writeln;
 Writeln;
 Writeln('Result for V: ',Sum(V,Nv):0:2);
 Writeln('Result for W: ',Sum(W,Nw):0:2);
 Readln
End.