Найдите такие индексы i и j, что произведение соответствующих элементов массива минимально

Не используйте вложенные циклы

Аминь.

А при чем тут паскаль? Если в массиве только <=0, либо только >=0 элементы, то минимальное произведение - это квадрат минимального по модулю элемента массива.
Если и отрицательные и положительные - то минимальное произведение, это произведение максимального по модулю отрицательного на максимальное  положительное.
Если конечно в условии нет что i<>j
Решается в любом случае за О(n), без вложенных циклов.

написать это надо в паскале

(3)

(4)(5) Кому надо написать в паскале?
То есть алгоритма уже недостаточно? Нужно за тебя написать эти 10 строк кода?

Ох, школота ленивая пошла!
(0) на хаскелле пиши!

(6) если не сложно можешь написать (7) не мне надо, девушке помочь хочу.

(8) сейчас девушки дают за паскаль? Эх, в моё бы время так…

(8) Мне видимо показалось, но ты не хочешь помочь девушке, а хочешь чтоб кто-нибудь на форуме помог девушке.

(10) Да потому что я уже все позабыл.

Var i,mi,ma,mimod,imi,ima,imimod:integer;
Begin
imi:=1;ima:=1;imimod:=1;
mi:=a[1];ma:=a[1];mimod:=abs(a[1]);
For i:=2 to n do
Begin
if a[i]<mi then begin mi:=a[i];imi:=i end;
if a[i]>ma then begin ma:=a[i];ima:=i end;
if abs(a[i])<mimod then begin mimod:=abs(a[i]);imimod:=i end;
end;
if mi*ma<0 then witeln(imi,ima) else writeln(imimod,imimod);

(12)  все отлично, ток он не выводит почему то номер второго числа с которым перемножается

(13) В обоих writeln выводится два номера.

(12) что и куда нужно дописать что бы он выводил оба числа
числа обоих минимальных

if mi*ma<0 then witeln(imi,' ',ima) else writeln(imimod,' ',imimod);

число imamod отстутствует

(16)

(17) Если все числа имеют одинаковый знак, то наименьшее произведение это квадрат наименьшего по модулю числа. Квадрат. i=j. Неужели непонятно?

Ааааа...Все понял спасибо огромное. Теперь нужно - это все разжевать девушке xD.

(20)

Остаётся вопрос - кому должна теперь дать девушка: ТС или автору решения?