Во втором массиве сохранить индексы четных элементов первого массива. Например, если дан массив со значениями 8, 3, 15, 6, 4, 2, то второй массив надо заполнить значениями 1, 4, 5, 6 (или 0, 3, 4, 5 — если индексация начинается с нуля), т.к. именно в этих позициях первого массива стоят четные числа.
Ввести для второго массива счетчик элементов.
В цикле перебирая все элементы первого массива,
проверять их на четность.
Если элемент четный, то
заносить его индекс в очередную ячейку второго массива,
увеличивать на 1 значение счетчика элементов второго массива.
Вывести на экран элементы второго массива от первого до последнего, на индекс которого указывает счетчик элементов второго массива (чаще за вычетом 1).
Pascal
const N = 15;
var
arr, even: array[1..N] of integer;
i, j: byte;
begin
randomize;
for i:=1 to N do begin
arr[i] := random(11);
write(arr[i]:4)
end;
writeln;
j := 0;
for i:=1 to N do
if arr[i] mod 2 = 0 then begin
j := j+1;
even[j] := i;
end;
write('Индексы четных элементов: ');
for i:=1 to j do
write(even[i], ' ');
writeln;
end.
алг индексы четных элементов
нач
цел N = 15
цел таб arr[1:N], even[1:N]
цел i,j
нц для i от 1 до N
arr[i] := int(rand(0,11))
вывод arr[i], " "
кц
вывод нс
j := 0
нц для i от 1 до N
если mod(arr[i],2) = 0 то
j := j + 1
even[j] := i
все
кц
вывод "Индексы четных элементов: "
нц для i от 1 до j
вывод even[i], " "
кц
кон
N = 10
dim arr(N)
dim even(N)
for i=0 to N-1
arr[i] = int(rand *10) + 10
print arr[i] + " ";
next i
print
j = 0
for i=0 to N-1
if arr[i] % 2 = 0 then
even[j] = i
j = j + 1
endif
next i
print "Индексы четных элементов: "
for i=0 to j-1
print even[i] + " ";
next i
const N = 15; var arr, even: array[1..N] of integer; i, j: byte; begin randomize; for i:=1 to N do begin arr[i] := random(11); write(arr[i]:4) end; writeln;
j := 0; for i:=1 to N do if arr[i] mod 2 = 0 then begin j := j+1; even[j] := i; end;
write('Индексы четных элементов: '); for i:=1 to j do write(even[i], ' '); writeln; end.
алг индексы четных элементов нач цел N = 15 цел таб arr[1:N], even[1:N] цел i,j нц для i от 1 до N arr[i] := int(rand(0,11)) вывод arr[i], " " кц вывод нс j := 0 нц для i от 1 до N если mod(arr[i],2) = 0 то j := j + 1 even[j] := i все кц вывод "Индексы четных элементов: " нц для i от 1 до j вывод even[i], " " кц кон
N = 10 dim arr(N) dim even(N) for i=0 to N-1 arr[i] = int(rand *10) + 10 print arr[i] + " "; next i print j = 0 for i=0 to N-1 if arr[i] % 2 = 0 then even[j] = i j = j + 1 endif next i print "Индексы четных элементов: " for i=0 to j-1 print even[i] + " "; next i