Составить программу (Паскаль) Сформировать массив (t кол-во элементов 20) случайных…

var t: array[0… 19] of byte; i,k,l,s: integer; begin k: =0; l: =0; s: =0; for i: =0 to 19 do begint[i]: =random (21) -10; write (t[i],'); if t[i]=0 then k: =k+1; if t[i] mod 3=0 then s: =s+t[i]; l: =l+t[i]; end; write ('колво 0 ',k); write ('сумма кратных 3 ',s); write ('средне арефм ',l/20); end.