4
Объяснение:
фрагмент кода меняет соседние элементы массива, если предыдущий меньше последующего и считает кол-во этих перестановок
Исходный
8 9 5 3 2 8 4 2 1 9 d := 0 ( 8 < 9)
1) 9 8 5 3 2 8 4 2 1 9 d := 1 (8 !< 5)
2) 9 8 5 3 2 8 4 2 1 9 d := 1 (5 !< 3)
3) 9 8 5 3 2 8 4 2 1 9 d := 1 (3 !< 2)
4) 9 8 5 3 2 8 4 2 1 9 d := 1 (2 < 8)
5) 9 8 5 3 8 2 4 2 1 9 d := 2 (2 < 4)
6) 9 8 5 3 8 4 2 2 1 9 d := 3 (2 !< 2)
7) 9 8 5 3 8 4 2 2 1 9 d := 3 (2 !< 1)
8) 9 8 5 3 8 4 2 2 1 9 d := 3 (1 < 9)
8) 9 8 5 3 8 4 2 2 9 1 d := 4
ответ: d := 4
//Код Pascal
const
N = 7;
var
Mass: array[1..N] of integer;
i, k: integer;
Begin
WriteLn('Введите для продолжения:');
WriteLn('1 - Автоматическая генерация массива');
WriteLn('2 - Ручной ввод');
ReadLn(k);
if (k = 1) then
Begin
Write('Исходный массив:');
For i:= 1 to N do
Begin
Mass[i] := random(2*N) - N;
Write(' ', Mass[i]);
End;
End
else
For i:= 1 to N do
Read(Mass[i]);
WriteLn();
WriteLn('Введите номер элемента');
ReadLn(k);
if ((k < 1) or (k > N)) then
WriteLn('Ошибка, в массиве нет элемента с таким номером.')
else
Begin
Write(k, '-ый элемент - ');
if (Mass[i] mod 2 = 0) then
Write('чётный')
else
Write('нечётный');
End;
End.
9) 0+9=9
10) 9+9=18
11) 18+9=27
12) 27+9=36
13) 36+9=45
14) 45+9=54
s= 54