Что не правильно в этой программе? надо найти среднее арифметическое нечетных чисел. в этой строке (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.
