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

解決

おかあさん 2005-11-09 20:45:38 No: 18547

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

りおりお 2005-11-09 21:00:26 No: 18548

こんな感じです。

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 22:23:12 No: 18549

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