//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
1) 5-1 = 4(2)
2) 4*2 = 8 (1)
3) 8*2 = 16 (1)
4) 16*2 = 32 (1)
5) 32-1 = 31 (2)
Ответ: 21112
1 отматать назад что либо 2 прибавить или убавить звук 3 отматать вперёд что либо 4 распределить в разном порядке 5 воспроизвести 6 повтор.
П1 <-> П4 0 П0 ПП 09 ИП0 С/П
ИП4 ИП0 + П0 КИП4 ИП4 ИП1 - /-/ x<0 09 В/О
Процедура - с адреса 09.