Программа написана ниже:
Объяснение:
program H;
var sum, proz : integer;
begin
sum := (-4) + (-3)+(-2)+(-1)+0+1+2;
proz := (-4) * (-3)*(-2)*(-1)*0*1*2;
writeln ('Сумма =', sum);
writeln ('Произведение =', proz);
end.
Программа написана ниже:
Объяснение:
program H;
var sum, proz : integer;
begin
sum := (-4) + (-3)+(-2)+(-1)+0+1+2;
proz := (-4) * (-3)*(-2)*(-1)*0*1*2;
writeln ('Сумма =', sum);
writeln ('Произведение =', proz);
end.