Дан одномерный массив 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 20)

then

begin

g:=i;

B[i]:=g;

write (B[i]:4) ;

end;

end;

End.