Составить программу(Паскаль) Сформировать массив (t кол-во элементов 20) случайных чисел,выбранных на интервале от -10 до +10.Вывести кол-во нулевых элементов,сумму элементов кратных 3 и среднее арифметическое всех элементов ма...

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 begin t[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.