Вот какая здесь закономерность?

[Анжелика]

Дан массив А(n) найти max(A[1]+A[n],A[2]+A[N-1],...A[N/2]+A[N/2+1)
чТО это в скобках значит? как это записать? Помогите пожалуйста...
Это надо на Паскале

[Sasha_Smirnov]

Анжелика, это значит, что складывают первый и последний, второй и предпоследний — и так до середины массива (число элементов в нём, судя по заданию, чётное) — элементы, а затем из полученных сумм берут максимальную.

(Видимо, кто-то хочет поднатаскать вас в циклах на Паскале. К сожалению, этого языка у меня в компьютере нет.)

[Анжелика]

А как всё таки это записать,?

[Sazary]

uses crt;
{ -- Для четного n -- }
const n=10;
var a : array[1..n] of integer;
i,max : integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i] := random(20);
 write(a[i]:3);
 end;
writeln;
writeln('-------');
{---}
max := a[1]+a[n];
for i:=2 to round(n/2)-1 do
  if max<(a[i]+a[n-i+1]) then max:=a[i]+a[n-i+1];
writeln('Max= ',max:5);
readln;
end.

[Sasha_Smirnov]

Ну уж если { -- Для четного n -- }, то и для n = 2 желателен код.

[Анжелика]

Вот вам всем спасибо, это программа такая маленькая, я то думала....

[Sazary]

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

Ну уж если { -- Для четного n -- }, то и для n = 2 желателен код.

Для любого n (в пределах разумного) :

uses crt;
const n=7;
var a : array[1..n] of integer;
i,max : integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i] := random(20);
 write(a[i]:3);
 end;
writeln;
writeln('-------');
{---}

max := a[1]+a[n];
for i:=1 to trunc(n/2) do
  if max<(a[i]+a[n-i+1]) then max:=a[i]+a[n-i+1];
writeln('Max= ',max:5);
readln;
end.

upd Для любого натурального n > 1 ))