Дан одномерный массив B из N элементов, значения которых находятся в диапозоне от 0 до 325. 1) Заменить все чётные элементы на и
Дан одномерный массив 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;<span> End.
2) </span>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;<span> End.</span>