Var ar:array[1..15] of integer; i,k1,k2:integer; r1,r2:real; begin randomize; writeln('Array:'); for i:=1 to 15 do begin ar[i]:=random(-20,20); write(ar[i]:4); if i mod 2=0 then begin inc(k1); r1:=r1+ar[i]; end; if ar[i]>0 then begin inc(k2); r2:=r2+k2; end; end; r1:=r1/k1; r2:=r2/k2; writeln; if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах'); if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива'); if r1=r2 then writeln('Равно'); end.
В формулировке ошибка - не for i:-1 to 5 do, а for i:=1 to 5 do. Теперь к заданию. Цикл повторяется 5 раз, значит счётчик i будет иметь значение 1 на первом шаге, 2 на втором, 3 на третьем, 4 на четвёртом и 5 на пятом. В цикле мы обращаемся к элементу одномерного массива b, чей индекс равен i, то есть на первом шаге мы обратимся к первому элементу массива, на втором - ко второму и так далее. По формуле: 2*i+i. Опять же видим, что тут фигурирует наш счётчик цикла i, из чего следует что для первого шага первому элементу массива будет присвоено значение 2*1+1=3. Для пятого элемента массива значение будет равно 2*5+5=15. После выхода из цикла мы запрашивается вывод пятого элемента массива b, значение которого задано в цикле и равно 15. ответ: 15
