Называется Энергоблок.
С уважением, Джавир.
Program Chisla;
Var a,p:integer;
Begin
P:=1
For a:=10 to 16 do
P:=p*a;
Writeln(P);
End.
Нужный язык программирования не указан. Наверное, тебе подойдет Си :с
int n, tmp; <em>// переменные для длины массива и временная</em>
int count = 0; <em>// переменная-счетчик для количества перестановок</em>
scanf_s("%d", &n;) <em>// считываем количество элементов в массиве</em>
int arr[n]; <em>// объявляем массив из n элементов</em>
for (int i = 0; i < n; i++) { <em>// формируем массив</em>
scanf_s("%d", arr[i]);
}
for (int i = 0; i < n; i++) { <em>// сравниваем два соседних элемента (j и j+1)</em>
for (int j = 0; j < n - i - 1; j++) {
if (arr[j] > arr[j + 1]) { <em> // свапаем элементы местами, если порядок неверный через временную переменную</em>
tmp = arr[j];
arr[j] = arr[j + 1];
arr[j + 1] = tmp;
count++; <em>// увеличиваем счетчик перестановок</em>
}
}
}
ptintf("%d", count); <em> //выводим количество перестановок</em>