//Pascal ABC.NET 3.1 сборка 1219
Var
ai,n1,n2,i,k,max:integer;
begin
readln(ai);
read(n1);
max:=-1;
k:=1;
for i:=2 to ai do
begin
read(n2);
if n2>=n1 then
begin
inc(k);
n1:=n2;
end
else
begin
k:=1;
n1:=n2;
end;
if k>max then max:=k;
end;
if max=-1 then writeln('1') else writeln(max);
end.
Пример ввода:
6
2
2
1
3
4
1
Пример вывода:
3
S = 0
for i in range(2,101,2):
s = s+i
print("s=",s)
Результат:
<span>s= 2550</span>
1. 16*32*25*2=25600 байт/1024=25 Кбайт
2.16*32*20*2=<span><span>20480 байт=20 Кбайт
3.32*32*30*1=</span></span><span><span>30720 байт=30 Кбайт</span></span>
101010₂ = 1×2⁵+0×2⁴+1×2³+0×2²+1×2¹+0×2⁰ = 32+8+2 = 42₁₀
Pascal abc
<em><u>Проверка</u></em>
-29 13 -23 -20 10 13 -23 -1 30 45
кол-во полож=5<span>
</span>