Program p1;
const MaxN=1000;
var m:array [1..MaxN] of real;
    m2:array [1..MaxN] of real;
    i,k,n:integer;
    summa:real;
begin
writeln ('Vvedite N (razmernosti massiva):');
readln (n);
writeln ('Vvedite sam massiva(elementy ukazati cherez probel):');
for i:=1 to n do read (m[i]); writeln;
k:=0;
for i:=1 to n do
if m[i]>0 then begin inc(k); m2[k]:=m[i];  end;
for i:=2 to k-1 do summa:=summa+ m2[i];
writeln ('REZULTAT= ',summa:3:0);
 
readln;
end.