Регистрация
nastyushakulik
25.12.2022 06:15
Информатика
Есть ответ 👍

На паскале решить . задан целочисленный вектор х размерностью n, представляющий последовательность целых чисел. определить число инверсий в этой последовательности. рекомендации: инверсией считать пару элементов, в которой большее число находится перед меньшим (хi> xj, если i> j)

188
216
Посмотреть ответы 2

Ответы на вопрос:

АлсушкаСушка
АлсушкаСушка
4,7(39 оценок)

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.

MilаKlimenkova
MilаKlimenkova
4,4(89 оценок)

a = int(input('Введите число: '))

if a % 3 ==0:

      print('Является')

else:

     print('Не является')

Объяснение:

Перед двумя принтами надо вместо пробелов поставить таб - если будете копировать

Популярно: Информатика