Question

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

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.