program ideone;
uses Crt;

var
    n : array [1..10] of integer;
    i, f : integer;

begin
    randomize;

    for i := 1 to 10 do
        n[i] := random (11) -5;
	f := 0;
	
	write('Our random numbers are: ');
	for i := 1 to 10 do
	    write(n[i], '; ');
	writeln();
	
    for i := 1 to 10 do
        if n[i] > 0 then
            f := f + n[i];
    writeln('Result: ', f);
end.