Одномерный массив.

[Spruti]

Найти max(a2,a4,...,a(2k)+min(a1,a3,...,a (2k+1)

[BDA]

С чем возникли сложности?

[Serge_Bliznykov]

Сообщение от BDA

С чем возникли сложности?

думаю, с нежеланием в чём то разбираться и что-то делать.
Ожидается приход халявы в виде готового кода...
(буду рад, если я ошибаюсь..)

Spruti, если это Вам поможет, подскажу, что Вам надо найти. Вам надо найти максимальное значение элементов массива A, стоящих на чётных местах (с индексами 2, 4, 6, 8 и т.д. до самого конца массива), нужно найти минимальное значение среди элементов массива с нечётными индексами.
Выдать результат суммирования этих двух величин.

Кстати, писать программму будет строчек примерно в 5 раз меньше, чем в этом моём сообщении.

[domovou]

var
   a:array [1..100] of integer;
   max,min,i,n:integer;
Begin
write('Kol-vo chisel v massive= ');
readln(n);
max:=a[1];
min:=a[1];
for i:=1 to n do
    begin
    a[i]:=random(51)-25;
    write(a[i]:3);
    if i mod 2 = 0 then
       if a[i]>max then max:=a[i]
          else
       else if a[i]<min then min:=a[i];
    end;
writeln(#13,'Otvet= ',max+min);
readln;
end.

[eoln]

Эх, повезло Spruti с халявой
Маленькие поправки

max:=a[2];

а то мало ли какие числа попадутся.
И с новой строки #13#10, а то мало ли что

[Serge_Bliznykov]

Маленькие поправки

max:=a[2];

с учётом того, что domovou сначала читает из массива минимальный и максимальные элементы, а уже ПОТОМ заполняет элементы массива, то не так уж Spruti и повезло...

[eoln]

Сообщение от Serge_Bliznykov

сначала читает из массива минимальный и максимальные элементы, а уже ПОТОМ заполняет

Ага, точно