На Паскале решить задачу. Задан целочисленный вектор Х размерностью n,…

Program Vector; type vect=array[1… 100] of integer; var n,i,k: integer; x: vect; begin writeln ('Сколько компонентов (n) содержит вектор? [n<100]'); readln (n); writeln ('Дайте ',n,' компоненты'); for i: =1 to n do readln (x[i]); {Теперь узнаем сколько у нас будут инверсии} for i: =1 to n do begin if x[i]>x[i+1] then k: =1+k; end; writeln ('инверсии — ',k-1); readln; end.