Pascal ABC-поседовательность чисел

Ответить
Devil25
Сообщения: 4
Зарегистрирован: 04 июн 2007, 12:12

Pascal ABC-поседовательность чисел

Сообщение Devil25 » 04 июн 2007, 12:50

помогите с задачей, пожайлуста.
вычислить сумму отрицательных и количество положительных чисел в последовательности данных чисел.

BBB
Сообщения: 1272
Зарегистрирован: 27 дек 2005, 13:37

Re: Pascal ABC-поседовательность чисел

Сообщение BBB » 04 июн 2007, 16:36

Код: Выделить всё

var
  iNegSum, iPosQty : longint;
  iLoop : integer;

begin
  iNegSum := 0;
  iPosQty := 0;
  for iLoop := 1 to N do
    begin
       if  (A [iLoop] < 0) then
          iNegSum := iNegSum + A [iLoop]
       else
         if  (A [iLoop] > 0) then
            iPosQty := iPosQty + 1;
    end;
end.
где:
A [N] - массив твоих чисел.
Числа равные нулю, согласно тексту задачи, при переборе никак не учитываются.

Devil25
Сообщения: 4
Зарегистрирован: 04 июн 2007, 12:12

Re: Pascal ABC-поседовательность чисел

Сообщение Devil25 » 05 июн 2007, 11:13

Спасибо!!!

Ответить