Составьте программу, которая формирует массив из шестнадцати чисел от - 20 до 20 и находит индексы четных элементов.

Question

Информатика

Питирим

8 апреля, 00:57

Составьте программу, которая формирует массив из шестнадцати чисел от - 20 до 20 и находит индексы четных элементов.

+4

Ответы (1)

Знаете ответ на вопрос?

Радим · Answer 1

Program z1; var a:array[1 ... 16] of integer; i:integer; beginfor i:=1 to 16 do a[i]:=random (40) - 20; for i:=1 to 16 do write (a[i],' ') ; for i:=1 to 16 do if a[i] mod 2=0 then writeln (i) ; end.