скажи пожалуйста в чем ошибка?
массив одномерный
3. Определить наименьший по модулю элемент среди нечетных по номеру элементов третьей четверти массива.
Writeln ('min=',min:4);
For i:=N div 3 to N-1 Doтут препод докапался
For k:=i+1 to N -1 do
If(F[i]<0) AND (F[k]<0) Thenи вот тут непойму в чем ошибка
if 1/F[i]<1/F[k] then begin
Buf:=F[i];
F[k]:=F[k];
F[k]:=buf;
Категория: 
Игорь
Вот так бы я написал:
Определить наименьший по модулю элемент среди нечетных по номеру элементов третьей четверти массива.
const kol=12; //количество элементов
var
i:integer; //счетчик
elem:integer; //сравниваемый элемент
minnom:integer; //номер минимального в массиве
min:integer; //минимальное по модулю
a:array[1 to kol] of integer; //массив элементов
begin
//Задание элементов массива пропущу
min:=maxint; //первоначальная устанока минимального в максимально возможное значение
for i:= ((kol div 4)*2) to ((kol div 4)*3) do //счетчик по номерам элементов от 2/4 до 3/4
begin
if a[i] > 0 then elem:=a[i] else elem:=-1*a[i]; //определяем модуль элемента
if elem < min then // если текущее меньше минимального
begin
min:=elem; //запоминаем модуль минимального
minnom:=i; //запоминаем номер минимального по модулю элемента
end;
end;
writeln (i); //вывод номера минимального по модулю элемента на экран
end.