Система счисления 1111001110 в десятичной и двоичной системе. , я ваще не шарю : с

Если перевести в двоичную систему будет 974.

Смотри, все просто.
На компьютере открываешь калькулятор, жмешь на кнопку "Вид" и выбираешь "Программист".
С правой стороны, где-то по середине будет прямоугольник с "Hex;Dec;Oct;Bin".
Hex-шестнадцатиричная система счисления.
Dec-десятичная система счисления.
Oct-восьмеричная система счисления.
Bin-двоичная система счисления.
Не сложно,
16
10
8
2
Тебе нужна система на 10 и 2.
То есть из 2 в 10,
Как я говорил, 2-это Bin.
Жмешь на нее.
Пишешь свое число, а именно 1111001110.
Нули могут "не набираться", это нормально и на самом деле они набираются, просто чуть ниже главной строки.
Дальше тебе нужно перевести число в 10 систему, то есть в Dec.
Жмешь.
Получается число.
Это число-номер знака/буквы/цифры в табличке.
"Стандартная часть кода ANSI (или ASCII, разницы просто нет)" и вторая часть этой таблицы "Кодовая страница CP1251".
Там все пронумерованно.
К примеру под номером 32 пробел, под 71 G, под 212 Ф.
И повторюсь, в этих двух таблицах ты ищешь номер который у тебя выдал калькулятор.
И все.
Правда, вся суть в том, что я не нашел в таблицах этой буквы/цифры/символа.
Возможно, тебе нужно только само получившееся число, а именно 974.
Надеюсь, хоть что-то смог объяснить.

1)
uses crt;
var a:array [1..15] of integer;
     i,k:integer;
begin
  randomize;
  k:=0;
  for i:=1 to 15 do
    begin
      a[i]:=random(10)-3;
      if (a[i]<0) then inc(k);
      write (a[i],' ');
    end;
  writeln;
  writeln (k/15*100,'%');
end.

2)
uses crt;
var a:array [1..20] of integer;
     i:integer;
begin
  randomize;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  for i:=1 to 20 do
    if (a[i] mod 10 = 3) then write (a[i],' ');
end.

3)
uses crt;
var a:array [1..20] of integer;
     i:integer;
     k:longint;
begin
  randomize;
  k:=1;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
      if (a[i]>9) and (a[i]<100) then k:=k*a[i];
    end;
  writeln;
  writeln (k);
end.

4)
uses crt;
var a:array [1..30] of integer;
     i:integer;
     flag:boolean;
begin
  randomize;
  for i:=1 to 30 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  flag:=true;
  for i:=1 to 29 do
    if (a[i]>a[i+1]) then
     begin
       flag:=false;
       break;
     end;
  writeln (flag);
end.

Не самый лёгкий, но работающий

const  n = 10000;//Не изменяемая по ходу программы переменная
var  a: array[1..n] of integer;  b: array[1..10]of integer;  c: array[1..10]of integer;  i, s, v: integer;
begin  for i := 1 to 10 do //Заполнение массива с числами от 1 до 10    c[i] := i;  for i := 1 to n do //Заполнение массива    a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей  for i := 1 to n do    case a[i] of      1: b[1] := b[1] + 1;      2: b[2] := b[2] + 1;      3: b[3] := b[3] + 1;      4: b[4] := b[4] + 1;      5: b[5] := b[5] + 1;      6: b[6] := b[6] + 1;      7: b[7] := b[7] + 1;      8: b[8] := b[8] + 1;      9: b[9] := b[9] + 1;      10: b[10] := b[10] + 1;    End;    for i := 1 to 10 do    for s := 1 to 9 do      if b[s] > b[s + 1] then begin        v := b[s];        b[s] := b[s + 1];        b[s + 1] := v;        v := c[s];        c[s] := c[s + 1];        c[s + 1] := v;      end;  writeln(c[10], ' - их ', b[10]);    end.