сделать трассировку программы. var a, sum, npos, nneg: integer; begin

sum := 0; npos := 0; nneg := 0; readln(a); while a <> 0 do begin

sum := sum + a;

if (a < 0) then nneg := nneg + 1 else npos := npos + 1; readln(a);

end;

writeln(sum); writeln (npos - nneg)

end.

alah200    3   28.01.2021 17:49    4