Question

Дан массив, содержащий 70 неотрицательных целых чисел, не превышающих 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наибольшую сумму двух соседних элементов массива, имеющих различную чётность. Гарантируется, что в массиве есть соседние элементы, имеющие различную чётность. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const N=70;var a: array [1..N] of integer;i, j, x, y: integer;beginfor i:=1 to N doreadln(a[i]);...end.

Answer 1

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.

Answer 2

Ниже представлен алгоритм на языке программирования Pascal, который находит и выводит наибольшую сумму двух соседних элементов массива с различной четностью:

pascalCopy code
const
  N = 70;
var
  a: array [1..N] of integer;
  i, j, x, y: integer;
  maxSum: integer;
begin
  // Вводим значения элементов массива
  for i := 1 to N do
    readln(a[i]);

  // Инициализируем максимальную сумму начальным значением
  maxSum := a[1] + a[2];

  // Перебираем пары соседних элементов массива
  for i := 1 to N - 1 do
  begin
    // Проверяем различие четности соседних элементов
    if (a[i] mod 2) <> (a[i + 1] mod 2) then
    begin
      // Вычисляем сумму соседних элементов
      y := a[i] + a[i + 1];

      // Обновляем максимальную сумму, если текущая сумма больше
      if y > maxSum then
        maxSum := y;
    end;
  end;

  // Выводим наибольшую сумму
  writeln('Наибольшая сумма двух соседних элементов с различной четностью: ', maxSum);
end.

Этот алгоритм перебирает пары соседних элементов массива и проверяет их четность. Если соседние элементы имеют различную четность, вычисляется их сумма и обновляется максимальная сумма, если текущая сумма больше. По завершении цикла выводится найденная наибольшая сумма.