Ausschließen von Minuszahlen

[inherited]

Und in deinem speziellen Fall:

Delphi-Quellcode:

myarray: Array[1..3] of Integer;

...

myarray[1]:=15-random(20)+1;
myarray[2]:=2-random(20)+1;
myarray[3]:=42-random(20)+1;

for i := 1 to 3 do
begin
  if myarray[i]>0 then
    Ergebnis:=Ergebnis+myarray[i];
end;