Const
a: array of integer = (7, 3, 10, 9, 8, 4, 1, 6, 2, 5);

begin
var n := 0;
var found := false;
repeat
    found := false;
    for var i := low(a) to High(a) - 1 do
      if a[i] > a[i + 1] then begin
        swap(a[i], a[i + 1]);
        found := true;
        n := n + 1;
      end;
until not found;

writeln('Swaps = ', n);
end.

Ответ
Swaps = 30

0 0

4 года назад

Какое логическое выражение равносильно выражению ⌐(A V ⌐B)? 1) A V B 2) A∧B 3)¬AV¬B 4)¬A∧B

Cheshirka Nero

Третье, наверное
/////////////

0 0

4 года назад

Длина Московской кольцевой автомобильной дороги —109 километров. Байкер Вася стартует с нулевого километра МКАД и едет со скорос

Pelegrim07 [40]

#include <iostream>
int main(){
int v, t;
int s = 109;
std::cin >> v >> t;
std::cout << (s + (v * t \% s)) \% s;
return 0;
}<span>
</span>

0 0

4 года назад