Question

Что не правильно в этой программе? надо найти среднее арифметическое нечетных чисел. в этой строке (i: =i+1; ) пишет нельзя изменять значение переменной цикла внутри этого цикла program p1; var k: array [1..40] of integer; i,s: integer; sr: real; begin for i: = 1 to 40 do k[i]: = random(21)+0; writeln; for i: = 1 to 40 do write(k[i], ' '); s: =0; i: =0; writeln; for i: = 1 to 40 do if k[i] mod 2=1 then begin s: = s+k[i]; i: =i+1; sr: = s/i; end; write(sr); end.

Answer 1

Правильно пишет. В цикле for счётчик индексируется автоматически. Вручную его менять нельзя. В твоем цикле i является счетчиком цикла и одновременно еще и счетчиком нечетных элементов. Это недопустимо. Замени i на j например или другую букву для подсчета количества нечетных элементов.