Составить программу (Паскаль) Сформировать массив (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.