Найти результат вычисления арифметического выражения: y=(c-d), где d=2 c ∈ [-5; 6] с шагом =1. найти сумму вычисленных элементов и количество отрицательных. нужно написать программу и сделать блок схему(по возможности)
//Pascal var y, c, d, sum, neg: real; begin d := 2; c := -5; while c <= 6 do begin y := c - d; if y < 0 then neg := neg + 1; sum := sum + y; writeln(y:6:2,c:6:2); c := c + 1; end; writeln('Сумма = ', sum, ' Отрицацельных = ', neg); end.
var
y, c, d, sum, neg: real;
begin
d := 2;
c := -5;
while c <= 6 do
begin
y := c - d;
if y < 0 then
neg := neg + 1;
sum := sum + y;
writeln(y:6:2,c:6:2);
c := c + 1;
end;
writeln('Сумма = ', sum, ' Отрицацельных = ', neg);
end.