Дан массив из 10 целых чисел…

Const n=10; minr=-20; maxr=20; var a: array[1… n] of integer; i,k: integer; 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 if (a[i]<>0) and (a[i] mod 6=0) then k: =k+1; write (k) end.