Составьте программу, которая формирует массив из 16 случайных чисел от -20 до 20 и находит индексы четных элементов
Program pr1; var A:array [1..16]of integer; i,k:integer; begin randomize; for i:=1 to 16 do begin A[i]:=random(41)-20 ; wriet(A[i]0; end; k:=0; for i:=1 to 16 do if i mod 2=0 then writeln; write (i,' '); end.
на всякий случай проверь