Дано N произвольных чисел найти сумму положительных чисел в одну перемену и сумму отрицательных чисел в другую. Пожалуйста помогите! Решать программу '' пока''. Заранее спасибо
Answers & Comments
ProgrammatorNumber1
Program example; var plus, minus, n, a, i: integer; begin plus := 0; minus := 0; writeln('Введите кол-во чисел.'); readln(n) ; for i := 1 to n do begin writeln('Введите число'); readln(a); if a > 0 then plus := plus + a else minus := minus + a; end; writeln(plus); writeln(minus); end.
Answers & Comments
var plus, minus, n, a, i: integer;
begin
plus := 0;
minus := 0;
writeln('Введите кол-во чисел.');
readln(n) ;
for i := 1 to n do
begin
writeln('Введите число');
readln(a);
if a > 0 then plus := plus + a
else minus := minus + a;
end;
writeln(plus);
writeln(minus);
end.