Дан одномерный массив B из N элементов, значения которых находятся в диапозоне от 0 до...

Question

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

Comments

а первое и второе задание должны быть в одной программе?

Answer 1

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.