Дано N произвольных чисел найти сумму положительных чисел в одну перемену и сумму отрицательных чисел в другую. Пожалуйста помогите! Решать программу '' пока''. Заранее спасибо
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
И где тут таинственное "пока" ?
Ответ дал:
0
cgfcb,j
Ответ дал:
0
спасибо ,я если честно не знаю
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад