Вычислите значение целочисленной переменной с при a=26 b=6 c: =mod (a, b)+b c: =a mod b+b

Функция mod находит остаток от деления числа a на число b.
c = a mod b + b = (26 mod 6) + 6 = 2 + 6 = 8

Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
  Randomize;
 ClrScr;
 Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
 For i:=1 to N do
  Begin
   Mass[i]:=Random(11)-5;
   Write(Mass[i]:4);
  End;
 Writeln;
 Writeln('Исходный массив после замены всех отрицательны на -1:');
 For i:=1 to N do
  If mass[i]<0 then mass[i]:=-1;
 For i:=1 to N do write(Mass[i]:4);
 Readln;
 End.

0000011001000111

Объяснение:

Делим 1607 на 2 до тех пор, пока не сможем (то есть пока делимое число не станет равным единице). Получим результат:

11001000111

Нам дана двухбайтовая ячейка. Переведём из байт в биты.

2 байта = 2 · 8 бит = 16 бит.

Нолик или единица по отдельности - это один бит (условно; на самом деле - это выделяемая под них память). В нашем результате 11 бит (то есть 11 ноликов и единичек в сумме), остальные 5 остались незаполненными - отсюда и заполнение нулями (поскольку они ничего в результате не поменяют - таково устройство памяти и двоичного кода).