задача!

[вредина123]

пусть данно 100 целых чисел которые вводятся по одному получите сумму тех из них которые нечетны и отрицательны (не используя массив)

[andrewpalkin]

и что , ты не можешь посчитать ? Где код программы , который ты уже написал ?

[GetMax]

Var
  I:Byte;
  Chislo:Integer;
  Sum:Integer;
Begin
  I:=0;
  Sum:=0;
  While i <= 100 do
  Begin
      Inc(i);
      Write('Введите число: ');
      Readln(Chislo);
      If (Chislo mod 2 <> 0) and (Chislo < 0) then
      Sum:=Sum+Chislo
  End;
  Writeln(Sum)
  Readln
End.

[вредина123]

спасибо огромное