Найти среднее арифметическое элементов массива [Паскаль]

[ГениальныйИнФормат]

Помогите пожалуста с решением. В квадратной матрице найти среднее арифметическое элементов массива, у которых сумма номеров строки и столбца есть число нечётное.

[ArtGrek]

i: integer;
inc(i,2)
увеличивает i на 2, тоест если i:=1 то далше его значения будут 3,5,7..
а если i:= 2, то 4,6,8

dec(i,2) -уменшает, так что бы знал

[Serge_Bliznykov]

s :=0;
for i:=1 to N do
  for j:=1 to N do
    if odd(i+j) then s := s + a[i,j];

[ArtGrek]

Сообщение от Serge_Bliznykov

s :=0;
for i:=1 to N do
  for j:=1 to N do
    if odd(i+j) then s := s + a[i,j];

если так тоs начинаеца с 2, =1 не будет, и слишкам много проверок одних и тех же чисел

[Serge_Bliznykov]

Сообщение от ArtGrek

если так тоs начинаеца с 2, =1 не будет, и слишкам много проверок одних и тех же чисел

ArtGrek, о чём Вы вообще, почему с 2-х ? что значит "равно 1" ? при чём здесь 1?
и каких проверок "одних и тех же цифр" ?! проверок будет ровно N*N...


Дополню свой ответ.
В задаче среднеарифметическое надо найти..
тогда надо ещё считать количество элементов массива, которые просуммировались:

s :=0;
k:=0;
for i:=1 to N do
  for j:=1 to N do
    if odd(i+j) then begin 
        s := s + a[i,j];
        inc(k);
    end;

  if k=0 then WriteLn('Нет таких чисел в массиве - ср.ариф.подсчитать невозможно!')
  else WriteLn('Среднеарифметическое равно ', s/k)

[ГениальныйИнФормат]

Спасибо большое.

[ArtGrek]

у которых сумма номеров строки и столбца есть число нечётное.

Serge_Bliznykov извени проглядел, выделеное жирным, все естествено правелно

[Serge_Bliznykov]

ArtGrek, ничего страшного... бывает...


Тему закрываю.