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

[Новичок]

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

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 2:53