Дан одномерный массив B из N элементов, значения которых находятся в диапозоне от 0 до 325.
1) Заменить все чётные элементы на их номера. Вывести на экран исходный и новый массив.
2) Заменить все чётные элементы, стоящие на нечетных местах, на их номера.

1) program X;
var 
B:array [0..325] of integer;
i,g,n:integer;
Begin
write (Введите количество элементов массива = );
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;
Begin
write (Введите количество элементов массива = );
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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.