Перечислите все системы счисления в порядке возрастания , в которых не существует числа 163.

1, 2 , 3, 4 , 5 , 6  так как   в них не существует цифры 6 

Var     i,n: integer;     s,min: real; a: array[1..10]of real; begin writeln('исходный массив: '); for i: =1 to 10 do   begin   a[i]: =random(-10,10);   write(a[i],' ');   if a[i]< 0 then       begin       s: =s+a[i];       n: =n+1;       end;   if a[i]< min then  min: =a[i];   end; writeln; s: =s/n; for i: =1 to 10 do  if a[i]=min then a[i]: =s; writeln('среднее отрицательных: ',s); writeln('измененный массив: '); for i: =1 to 10 do  write(a[i],' '); end.

Var     i,n,max: integer;     a: array[1..30]of integer; begin writeln('исходный массив: '); for i: =1 to 30 do   begin   a[i]: =random(0,1000);   writeln(a[i]);   if (a[i]> 9) and (a[i]< 100) then       begin       if max=0 then max: =a[i];       if a[i]> max then max: =a[i];       end;   end; for i: =1 to 30 do   if a[i]=max then n: =n+1; if max> 0 then writeln('n=',n)     else writeln('таких нет'); end.