Заполнить одномерный массив случайными целыми числами. Найти фрагмент массива максимальной длины, элементы которого монотонно возрастают или убывают. Вывести фрагмент на консоль с указанием вида монотонности. Пример массива: 54 23 87 12 27 27 59 73 33 15 3
Фрагмент: 12 27 27 59 73 - монотонно возрастающий

1100001^2
1100001^2=1*2^7+1*2^6+0+0+0+0+1*2^0=128+64+1=193^10
ответ:193
Пояснение:для того чтобы перевести двоичную в десятичную-надо сначала посчитать количество разрядов числа с конца начиная с 0-то есть число будет выглядеть так 0 1 2 3 4 5 6 7- 7 разрядов,потом берём первое число 1 умножаем его на 2 в степени семь,так как последний разряд и степень 7,получиться число 128=2^7,прибавляем к этому следующее число степень которого 6,то есть 2^6=64,дальше всё 0 и прибавляем к этому последний разряд 2^0=1,следовательно и получается 128+64+1=193

 

Var a1,a2,a3,a4,a5,a6,a7,a8,k:integer;
begin
k:=0;
read (a1,a2,a3,a4,a5,a6,a7,a8);
if (a1>0) and (a2>0) and (a3>0) and (a4>0) and (a5>0) and (a6>0) and (a7>0) and (a8>0) then
begin
if (a1 mod 3 = 0) and (a1 mod 10 = 4) then k:=k+1;
if (a2 mod 3 = 0) and (a2 mod 10 = 4) then k:=k+1;
if (a3 mod 3 = 0) and (a3 mod 10 = 4) then k:=k+1;
if (a4 mod 3 = 0) and (a4 mod 10 = 4) then k:=k+1;
if (a5 mod 3 = 0) and (a5 mod 10 = 4) then k:=k+1;
if (a6 mod 3 = 0) and (a6 mod 10 = 4) then k:=k+1;
if (a7 mod 3 = 0) and (a7 mod 10 = 4) then k:=k+1;
if (a8 mod 3 = 0) and (a8 mod 10 = 4) then k:=k+1;
writeln (k);
end else
writeln ('Неверный ввод');
end.