Const n=70;
Var a:array[1..n] of integer;
i,j,x,y:integer;
Begin
for i:=1 to n do
readln(a[i]);
x:=0;
for i:=1 to n-1 do
if (a[i] mod 2)<>(a[i+1] mod 2) then
if (a[i]+a[i+1])>x then x:=a[i]+a[i+1];
writeln('max=',x);
End.
Через 5 минут она её догонит)))
<span>Электронный документ - это набор данных, которые хранятся в памяти компьютера под определенным именем.
</span>
Эта функция выведет 20.
Сначала мы передаём 2 в функцию h как указатель.
Увеличиваем 2 на один, а потом ещё на один, у нас выходит 4.
Возвращаем 4+4=8.
Потом мы передаём 4 в функция h как указатель.
Увеличиваем 4 на один, а потом ещё на один, у нас выходит 6.
6+6=12.
Ну а потом мы возвращаем сумму наших двоих функций h.
12+8 = 20.
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;