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

Question

Информатика

Аринка

24 ноября, 23:56

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

+5

Ответы (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.