1)cоставить программу удвоения каждого элемента массива a(n) порядковый номер которого кратен 3 2)дан массив а(n) целых чисел,каждый третий элемент массива заменить на его порядковым номером.вывести массив на печать.

1) program array;

var A : array[1..10000] of integer;

   i:integer;

begin

for i:=1 to length(A) do begin

   if i mod 3 = 0 then

       A[i]:=A[i]*2;

end;

end.

2) program fff;

var A : array[1..100] of integer;

   i,n:integer;

begin

for i:=1 to n do begin

   if i mod 3 = 0 then

       A[i]:=i;

end;

end.