Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write(Введите число (для завершения программы введите 0000): );
readln(n);
if n <> 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln(ИТОГ);
writeln( Сумма положительных: , sum, | Произведение отрицательных: , p);
writeln();
until n = 0000;
end.