Моделирование суммирующей машины Паскаля.

Дана последовательность целых чисел. Требуется определить сумму положительных и сумму отрицательных чисел.

Паскаль АВС

Question

Информатика

Зарема

27 декабря, 06:59

Моделирование суммирующей машины Паскаля.

Дана последовательность целых чисел. Требуется определить сумму положительных и сумму отрицательных чисел.

Паскаль АВС

+4

Ответы (1)

Знаете ответ на вопрос?

Артемьюшка · Answer 1

Var ar:array[1 ... 5] of integer;

i, k1, k2:integer;

begin;

for i:=1 to 5 do

begin;

readln (ar[i]) ;

if ar[i]<0 then k1:=k1+ar[i] else k2:=k2+ar[i];

end;

writeln ('Сумма положительных:', k2) ;

write ('Сумма отрицательных:', k1) ;

end.

Моделирование суммирующей машины Паскаля.Дана последовательность целых чисел. Требуется определить сумму положительных и сумму отрицательных чисел.Паскаль АВС