//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
Будет выведена только 9(как строка)
Так как переменная I у тебя задается числом 5, а в условии цикла i строго меньше 5
Соотвественно он не будет просто исполнятся
1. Наф-наф . 2. Братьями . 3. чтобы не замёрзнуть .
128×200=25600 Пикселей
каждый Пикселей обусловлен 16 бит информации
25600×16bit=25600×2b=51200b либо 51.2 килобайт. либо 50 кибибайта