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

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.