Дан массив, содержащий 70 неотрицательных целых чисел, не превышающих 1000. опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наибольшую сумму двух соседних элементов массива, имеющих различную чётность. гарантируется, что в массиве есть соседние элементы, имеющие различную чётность. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. 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]); end.
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.