массив каждый ненулевой элемент aij, что парную сумму i + j. заменить на обратный

[FYNZIK]

каждый ненулевой элемент aij, что парную сумму i + j. заменить на обратный

[Serge_Bliznykov]

извините, но лично для меня смысл фразы весьма туманен...
Вы, возможно, задание неправильно перевели с другого языка?
Попробуйте запостить оригинальное задание, возможно, кто-то его прочитает и переведёт более корректно..

[FYNZIK]

матрица. индексы i+j=парное число и не должны быть равны нулю, в таком случае вы берёте "обернене число"

[FYNZIK]

i+j должно быть парным, например а11 а12 а13, в первом и третем случае 1+1=2 и 1+3 - парное, а вот во втором 1+2=3 - не парное. Нам нужна именно парная сумма индексов, чтобы числа, которые стоят на этих позициях, поменять на обратные.

[Serge_Bliznykov]

так, в русском языке вместо "парное" используется термин ЧЁТНОЕ

а насчёт "Обернене число"
из вики - тыц

Обернене число
Матеріал з Вікіпедії — вільної енциклопедії.

Самообернена функція: y = 1/x. Для кожного x окрім 0, y показує його обернене число
Обернене число для x, позначається 1/x або x−1, це число, яке добуток якого з x породжує одиницю. Оберненим дробу a/b буде b/a. Для отримання оберненого для дійсного числа треба розділити 1 на число. Наприклад, обернене для 5 є 1/5, а для 0.25 це 1 розділений на 0.25, або 4. Функція f(x), яка відображає x в 1/x, це один з найпростіших прикладів самооберненої функції.

это оно?!

Тогда:

var Mas:array[1..N,1..M] of real;
  i, j : integer;
begin

  //  тут пишите заполнение массива Mas нужным способом

  // а вот и основной цикл программы
  for i:=1 to N
    for j:=1 to M do
      if ((i+j) mod 2 = 0) and ( Mas[i,j]<>0 ) then Mas[i,j] := 1/Mas[i,j];

p.s. проверку на ноль лучше написать так:

.... and ( abs(Mas[i,j])>0.00001 )  then ....