Const
 N=20;
Var
 A:Array[1..N] of real;
 i,I_last:integer;
 Sum:real;
Begin
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=5.0-Random*10;
   write(A[i]:8:3);
  end;
 Writeln;
 I_last:=N+1;
 Repeat
  Dec(I_last);
 Until A[I_last]>0;
 Sum:=0;
 for i:=1 to I_last do
  Sum:=Sum+A[i];
 Writeln('Sum = ',Sum:0:3);
 Readln
End.