Страница 1 из 1
Pascal ABC-поседовательность чисел
Добавлено: 04 июн 2007, 13:50
Devil25
помогите с задачей, пожайлуста.
вычислить сумму отрицательных и количество положительных чисел в последовательности данных чисел.
Re: Pascal ABC-поседовательность чисел
Добавлено: 04 июн 2007, 17:36
BBB
Код: Выделить всё
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] - массив твоих чисел.
Числа равные нулю, согласно тексту задачи, при переборе никак не учитываются.
Re: Pascal ABC-поседовательность чисел
Добавлено: 05 июн 2007, 12:13
Devil25
Спасибо!!!