На вход программы подается натуральное число n, а затем n целых чисел. необходимо определить максимальное произведение смежных элементов последовательности. n не превышает 1000, каждый элемент последовательности не превосходит по модулю 100. пример входных данных: 7 2 3 -2 -3 -1 4 6 пример выходных данных: 72
Var a,b,c:integer;begina:=-15;b:=-a;
c:=b mod 2;Writeln('c=',c);end.
в программе выводится остаток деления числа b на число c
но если тебе нужно оставить действие a:=a*2+1 тогда ты должен добавить ещё одну переменную и в таком случае b будет равнять не -а, а минус эта самая переменная. я обозначила эту переменную n, вот что получается
Var a,b,c,n:integer;begina:=-15;n:=-a*2+1;b:=-n;c:=n mod 2;Writeln('c=',c);end.