uses crt;
var a: array [1..100] of longint;
    i,k,n,s:integer;
begin
clrscr;

{vvod elementov, k-kol-vo elementov}

for i:=a[1] to k do
if a[i]<0
then i:=n;

s:=0;
begin
for i:=a[n] to k do
s:=s+a[i];
end;

writeln(s:5:2);
readln;
end.