// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,9); a.Println;
var maxl:=0; // максимальная из длин
var currl:=1; // текущая длина
for var i:=1 to a.Length-1 do
if a[i]>=a[i-1] then Inc(currl)
else begin
if currl>maxl then maxl:=currl;
currl:=1
end;
if currl>maxl then maxl:=currl;
Writeln('Максимальная длина ',maxl);
end.
<u><em>Тестовое решение:</em></u>
n= 15
4 2 4 4 1 1 1 7 4 9 4 4 5 4 7
Максимальная длина 4
Ответ: 593 Мбайт
16 млн. можно закодировать 3 байтами
720*576 = 414720 пикселей на кадр
414720*3 =1244160 байт на кадр
20*25 = 500 кадров
1244160*500 = 622080000 байт = 607500 Кбайт = 593 Мбайт
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512
А)(103 команды 1(вперед на 4)) б) (5 команд (назад 3))