Нужный язык программирования не указан. Наверное, тебе подойдет Си :с
int n, tmp; // переменные для длины массива и временная
int count = 0; // переменная-счетчик для количества перестановок
scanf_s("%d", &n;) // считываем количество элементов в массиве
int arr[n]; // объявляем массив из n элементов
for (int i = 0; i < n; i++) { // формируем массив
scanf_s("%d", arr[i]);
}
for (int i = 0; i < n; i++) { // сравниваем два соседних элемента (j и j+1)
for (int j = 0; j < n - i - 1; j++) {
if (arr[j] > arr[j + 1]) { // свапаем элементы местами, если порядок неверный через временную переменную
tmp = arr[j];
arr[j] = arr[j + 1];
arr[j + 1] = tmp;
count++; // увеличиваем счетчик перестановок
}
}
}
ptintf("%d", count); //выводим количество перестановок
program raf105;
var k,a,p,b,m,let:real;
begin
write('Площадь участка (га.): ');
readln(k);
write('Средняя урожайность с гектара (ц.): ');
readln(a);
write('Увеличение участка за год (% от площади): ');
readln(p);
write('Рост урожайности за год (% от урожайности): ');
readln(b);
write('Желаемый урожай (ц.): ');
readln(m);
while a < m do
begin
k+= (k/100*p);
a+= (a/100*b);
let+= 1;
end;
writeln;
writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');
writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');
end.
Язык PascalABC