Ля
Ляззата
Отчего-то мне кажется, что
1. N - это не массив, а его размер
2. Даже если я решу, даже если в паскале - тебе от этого никакого толку не будет.
Поэтому, советую тебе почитать об:
1. Функции Abs
2. Цикле for
3. условном операторе if
max:=abs(a[1]);
An:=1;
for i=1 to n do
if abs(a [ i ])>max then
max:=abs(a [ i ]);
An:=i;
end;
Den забыл поставить begin и end после THEN