Присвойте 5 элементу массива м2 среднее значение 3 последних элементов этого массива

Question

Присвойте 5 элементу массива м2 среднее значение 3 последних элементов этого массива

Answer 1

const n=100;

Var

i:integer;

A:array[1..n] of integer;

BEGIN

for i:=1 to n do

  if (i mod 3=0) then

  A[i]:=5;

END.