Элементы массива а(5) равны соответственно 3, 7, 2, 1, -5. подсчитайте значение выражения a[7-a[3]]*a[5]+a[a[4]+a[1]]

Если нумеровать с нуля, то out_of_range_exception. Если нумеровать с единицы массив, то 26

Объяснение:

В C++ работает этот код. Других языков практически не знаю.
#include <iostream>
int main()
{
    using namespace std;
    const int n = 8;
    double Arr[n] = { 122.3, 11.4, -34.2, 17.8, -25.5, -54, 34, -43};

    for (int i = 0; i < n; ++i)
        cout << Arr[i] << "  ";
    cout << endl;

    double max, min;
    for (int i = 0; i < n; ++i)
    {
        if (Arr[i] < 0)
        {
            int inegmax = i;
            for (int j = i; j < n; ++j)
                if (Arr[j] < 0)
                    if (Arr[j] >= Arr[inegmax])
                        inegmax = j;

            max = Arr[inegmax];
            Arr[inegmax] = Arr[i];
            Arr[i] = max;
        }
        else
        {
            int iposmin = i;
            for (int j = i; j < n; ++j)
                if (Arr[j] >= 0)
                    if (Arr[j] < Arr[iposmin])
                        iposmin = j;

            min = Arr[iposmin];
            Arr[iposmin] = Arr[i];
            Arr[i] = min;
        }
    }

    for (int i = 0; i < n; ++i)
        cout << Arr[i] << "  ";
    cout << endl;
    return 0;
}

Задание 1)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var fam:=ReadlnString('Фамилия:');
  var nam:=ReadlnString('имя:');
  var otch:=ReadlnString('отчество:');
  var fio:=fam+' '+nam+' '+otch;
  Writeln(fio,', длина текста- ',fio.Length)
end.

Тестовое решение
Фамилия: Иванов
имя: Сергей
отчество: Петрович
Иванов Сергей Петрович, длина текста- 22

Задание 3)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var w:='ИНТЕГРАЛ';
  Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]);
  Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]);
  Writeln(w[3]+w[1]+w[5:7]);
  Writeln(w[7]+w[5:3:-1]+w[2:4]);
  Writeln(w[6:]+w[8]+w[1]);
  Writeln(w[1]+w[5:8]);
  Writeln(w[2::-1]+w[3]+w[6:8]+w[3])
end.

Решение:
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ