Автоматическое устройство имеет 2 кнопки и экран. При включении на экране загорается число 0. При нажатии на одну кнопку число н
<span>а экране удваивается (вместо х появляется 2х). При нажатии на другую кнопку число увеличивается на 1 (вместо х появляется х+1). Как надо нажимать на кнопки, чтобы на экране появилось:99, 100</span>
Var
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.