1) program X;var B:array [0..325] of integer;i,g,n:integer;Beginwrite ('Введите количество элементов массива = ');read(n);For i:= 1 to n do Begin B[i]:= -10+random(25); write (B[i]:4); end; writeln; writeln('новый массив'); begin for i:=1 to n do if B[i] mod 2=0 then begin g:=i; B[i]:=g; write (B[i]:4); end; end; End.2) program X;var B:array [0..325] of integer;i,g,n:integer;Beginwrite ('Введите количество элементов массива = ');read(n);For i:= 1 to n do Begin B[i]:= -10+random(25); write (B[i]:4); end; writeln; writeln('новый массив'); begin for i:=1 to n do if (B[i] mod 2=0) and (i mod 2<>0) then begin g:=i; B[i]:=g; write (B[i]:4); end; end; End.