Информатика ответьте​

var

   d : array of integer;

   n : integer;

function arrSumRec(d : array of integer; n : integer) : integer;

begin

   if n > d.Length-1 then exit;

   result := d[n]+arrSumrec(d, n+1);

   n += 1;

end;

begin

   write('введите количество элементов для массива ');

   readln(n);

   d := new integer[n];

   d := arrRandom(n, 1, 100);

   writeln('сгенерирован массив из ', n, ' элементов со значениями в диапозоне 1..100');

   writeln(d);

   writeln('Сумма = ', arrSumRec(d, 0));

end.

функция function arrSumRec(d : array of integer; n : integer) : integer; в качестве первого параметра получает массив сумму которого считаем в качестве второго номер члена начиная с которого считаем сумму. Не забываем что нумерация начинается с нуля. поэтому чтобы посчитать сумму всех членов массива в качестве второго параметра указываем 0.

1)

a = input('Введите ваш пол (м/ж): ')

if a == 'м':

   print('Вам нужно пройти налево')

elif a == 'ж':

   print('Вам нужно пройти направо')

else:

   print('Ввод не распознан')

input('Введите enter для выхода.')

2)

f = input('Введите вашу фамилию: ')

n = input('Введите ваше имя: ')

o = input('Введите ваше отчество: ')

p1 = input('Введите серию паспорта: ')

p2 = input('Введите номер паспорта: ')

d = input('Введиет дату вылета: ')

t = input('Введите время вылета: ')

nr = input('Введите номер рейса: ')

kol = input('Введите кол-во билетов: ')

k = input('Введите класс обслеживания (эконом/стандарт/бизнес): ')

if k == 'эконом':

   s = 8500 * int(kol)

elif k == 'стандарт':

   s = 12000 * int(kol)

else:

   s = 15500 * int(kol)

print('Добрый день,', f , n)

print('Ваша дата и время вылета:', d + ',', t)

print('Ваш номер рейса:', nr)

print('Паспортные данные:', p1 + ',', p2)

print('Ваше количество билетов:', kol)

print('Общая стоимость:', s)

input('Введите enter для выхода.')

3)

a = input('Введите сообщение: ')

print('Длина вашего сообщения:', len(a))

print(round(len(a) * 0.4))

input('Введите enter для выхода.')