[lmikle]

Код:

program p1;

var
  A : Array [1..30] Of Integer;
  I, S  : Integer;

begin
  // Init array
  Randomize;
  For I := 1 To 30 Do
    A[i] := Random(101) - 50; // Random from -50 to 50

  // Sum all positive elements
  S := 0;
  For I := 1 To 30 Do
    If A[i] > 0 
      Then S := S + A[i];

  // Print result
  WriteLn('Sum of all positive values is ',S);
  ReadLn; // Wait for pressing Enter
end.