Дан массив целых чисел, содержащий 15 элементов. Вывести на экран индексы четных элементов массива.

Question

Информатика

Коляха

27 декабря, 01:15

Дан массив целых чисел, содержащий 15 элементов. Вывести на экран индексы четных элементов массива.

+1

Ответы (1)

Знаете ответ?

Лонгина · Answer 1

Var mass:array[1 ... 15] of integer;

var i:integer

; begin

Randomize;

for i:=1 to 15 do begin

mass[i]:=Random (46) - 25;

write (mass[i],' ') ;

end;

writeln;

for i:=1 to 15 do begin

if (mass[i] mod 2 = 0) then

writeln (i) ;

end;

end.