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

Const n=16; minr=-20; maxr=20; var a: array[1… n] of integer; k,i: integer; t: boolean; beginfor i: =1 to n do begin a[i]: =random (maxr-minr+1)+minr; write (a[i],') end; writeln; k: =0; for i: =1 to n do begin if (a[i] mod 2=0) and (a[i]<>0) then write (i,'); if a[i]<0 then k: =k+1 end; writeln; writeln (k); t: =false; for i: =1 to n do if (a[i] mod 3=0) and (a[i]<>0) then begin if t=false then begin writeln (true); t: =true end; write (i,') end; if t=false then writeln (false) end.