//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
1111(2) = 1*2^0+1*2^1+1*2^2+1*2^3= 1+2+4+8=15 мальчиков
var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.