306 в 8-ичной и с8 в 16-ичной перевести в 2-оичную.

306 в 8-ичной=462

с8 в 2-ичной= 11001000

Const   n=100; { размер массива } var   a: array[1..n] of integer;   i,k: integer; begin   { заполняем массив случайными значениями }   randomize;   k: =0;   writeln('элементы массива');   for i: =1 to n do       begin       a[i]: =random(41)-20;       write(a[i],' ');       if a[i]=0 then inc(k)       end;   writeln;     writeln('нулевых элементов: ',k) end.

//предполагается что слова разделены пробелами //предполагается что слово - это любой набор символов без пробела var       f: text;       s: string;       i, k: integer; begin       readln(s);       k : = 1;       for i : = 1 to length(s) do               if s[i] = ' ' then k : = k + 1;       assign(f, 'file.csv');       rewrite(f);       writeln(f, k, ',');       close(f);             writeln(k); end.