В двухмерном массиве определить среднее арифметическое нечётных элементов во второй строке массива.
Проблема:
Когда все элементы нечётные, то программа считает их количество, как и положено , но когда элементы чередуются то подсчёт идёт в программе неправильно.
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 -