Нужный язык программирования не указан. Наверное, тебе подойдет Си :с
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>
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.
A10=1*10^2+4*10+3+5*10^(-1)+1*10^(-2)+1*10^(-3)
A16=1*16^2+10*16+3+5*16^(-1)+12*16^(-2)+1*16^(-3)