//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219

Const
 n=15;

Var
 ar:array[1..n] of integer;
 i,s:integer;
begin
randomize;
 writeln('Array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-10,10);
   write(ar[i]:4);
   if ar[i]>0 then s:=s+ar[i];
  end;
 writeln;
 write('Result:',s);
end.

Пример работы программы:
Array:
   3  -7   0   9  -9   6  -1   0   1   0  -7   9  -9  -5  -8
Result:28