количество Опции

[Новичок]

Здравствуйте! Помогите в одном моменте при решении задачи. Ниже условие
В двухмерном массиве определить среднее арифметическое нечётных элементов во второй строке массива.
Проблема:
Когда все элементы нечётные, то программа считает их количество, как и положено , но когда элементы чередуются то подсчёт идёт в программе неправильно.

i:=2;
for j:=1 to 3 do  begin
 if a[i,j] mod 2=1  then s:=s+a[i,j] ;k:=k+1;
 end;		
writeln(s/k);
end.

Заранее спасибо

М

Тэги!! Правила Форума, п.5, и правила раздела, п.2. Lapp

Сообщение отредактировано: Lapp - 15.04.2010 6:53

[Ozzя]

i:=2;
for j:=1 to 3 do 
  begin
    if odd(a[i,j]) then 
       begin
           s:=s+a[i,j] ;
           k:=k+1;
        end; 
   end; 
writeln(s/k);
end.

Сообщение отредактировано: Ozzя - 14.04.2010 12:25

[Новичок]

Спасибо большое, всегда забываю операторные скобки.

[TarasBer]

> Спасибо большое, всегда забываю операторные скобки.

Делай отступы, и не будет проблемы.