マイナスだけを合計するには？

解決

おかあさん 2005-11-09 11:45:38 No: 18547 IP: 192.*.*.*

マイナスの数だけを合計したいのですが
宜しくお願い致します。
数
10
20
30
-40
-50
20
合計-90

りおりお 2005-11-09 12:00:26 No: 18548 IP: 192.*.*.*

こんな感じです。

procedure TForm1.Button1Click(Sender: TObject);
const
  kazu: array[0..5] of integer = ( 10, 20, 30, -40, -50, 20);
var
  sum, i: integer;
begin
  sum := 0;
  for i := Low(kazu) to High(kazu) do
    if kazu[i]<0 then sum := sum + kazu[i];
  Button1.Caption := IntToStr(sum);
end;

編集削除

おかあさん 2005-11-09 13:23:12 No: 18549 IP: 192.*.*.*

りおりおさん、有難う御座いました。

編集削除