Вычеслите сумму двоичных чисел x и y если x=11011101², y=10101110²

Периметр – это сумма длин всех сторон. Периметр помещения можно узнать, сложив длину всех стен. 
Пример:
Вычислим периметр комнаты размером 5х6 м. Сложим длину всех стен в комнате – и получим 22 м.
Сколько всего полотнищ нужно для оклеивания помещения?
Для этого нужно разделить периметр на ширину рулонов. Это позволит узнать, какое количество обойных полос нужно на помещение. 
Пример:
Периметр нашей комнаты – 22 м, а ширина обоев составляет 1,06 м. Разделим 22 на 1,06 – и получим 20,75. Округляем результат в большую сторону – и получаем 21 полотнище.
На сколько полотнищ хватит одного рулона?
Чтобы посчитать число полных полотнищ в одном рулоне разделим длину рулона на высоту потолка.
Пример:
Длина обойного рулона обычно составляет 10 м. Высота нашей комнаты – 2,75 м. Мастера рекомендуют прибавлять к высоте потолка дополнительный запас в 10 см. для удобства поклейки. Таким образом, значение высоты нашего потолка составит 2,85 м. Если разделить длину рулона (10 м) на это число (2,85 м), то мы получим 3 полных полосы из одного рулона обоев.
Сколько рулонов обоев понадобится? 
Чтобы узнать, сколько рулонов потребуется для одного помещения надо разделить число всех полотнищ в этом помещении на полное число полотнищ, которые получаются из одного рулона.
Пример:
В нашем случае расчет будет таким: 21 (число полотнищ) делим на 3 (полотнища из одного рулона) и получаем 7 рулонов обоев шириной – 1,06 м, длиной – 10 м.

Если вы клеите обои с крупным рисунком, то вам потребуется следить за аккуратной подгонкой полос для ровного совпадения узора. Это актуально для обоев с большими геометрическими рисунками, изображениями растений и других крупных форм. Здесь нужно учитывать раппорт - расстояние, через которое повторяется одинаковый рисунок. Вам необходимо сосчитать, сколько раппортов приходится на одну длину полотнища. Чем крупнее раппорт, тем большее количество рулонов вам потребуется для оклеивания просторных помещений. Размер раппорта указывается на этикетке обоев. На этикетке вы найдете один из указанных 

У вас не указано, над каким именно массивом нужно производить вышеописанное действие, поэтому я выкладываю общее решение.
Предположим, что a - это массив с какими-то сохранёнными числами до a[n]

for i:=1 to n do
  if a[i] > 0 then
    begin
    k:=k+1;
    sum:=sum+a[i]
    end;
average:=sum/k;

(a - данный массив, sum - сумма всех положительных чисел, k - количество положительных чисел - n - индекс последнего элемента массива, i - переменная для цикла, average - переменная, сохраняющая численное значение)
Запускаем цикл от 1 до n и перебираем все числа массива. Если i-тое число положительно, мы прибавляем его к sum, и увеличиваем k на 1, который сохраняет в себе количество положительных чисел массива.
После завершения цикла, мы получаем k - количество положительных чисел, sum - сумма всех положительных чисел. Чтобы найти среднее арифметическое, делим сумму всех чисел на их количество.
(Учитывайте, что переменная, сохраняющая среднее арифметическое должна иметь вещественный тип (real, double...))
Вот и всё. Если у вас возникают какие-то проблемы или ошибки в коде - оставьте комментарий. Если у вас проблемы с созданием массива (чтение массива с клавиатуры или создание массива со случайными числами) - опять же таки пишите:)