массивы

[volkonskaya]

Ребят,помогите,пожалуйста, решить 2 задачи:

1 задача. Даны действительные числа а1,а2...аn.Найти max(а1+а2n,а2+а2n-1,...,аn+аn+1).

2 задача. Дан массив действительных чисел.Среди них есть равные.Найти первый максимальный элемент массива и заменить его нулем.

[s-andriano]

1. По первой задаче в условии ошибка. Предполагаю, что чисел должно быть 2n.
2. Задача решается в два прохода: на первом ищется максимум, а на втором - заменяется первый встреченный максимальный элемент.

Надеюсь, помог.

[volkonskaya]

не совсем поняла как решать вторую задачу,долго над ней уже сижу,что-то не получается(

[s-andriano]

Какое именно слово непонятно?
Задавайте конкретные вопросы.

[Poma][a]

max := 1;
for i := 2 to n do 
       if a[i] > a[max] then
                max := i;


a[max] := 0;