Перестановкой из n чисел называется-последовательность чисел, где каждое число…

Question

65

Перестановкой из n чисел называется-последовательность чисел, где каждое число от 1 до n встречается ровно один раз. Перестановка b1,b2… bN являетсяобратной перестановкой перестановки a1,a2… aN, если b[ai]=1=i для каждого i от 1 до n. Для заданных двух перестановок определите является ли вторая перестановка обратной первойФормат входных данныхВ певой строке входного файла записано одно целое число n (1 <= n <= 1000) — размер перестановок. Во второй запписаны n целых чисел b1,b2… bN (1 <= bi <= n) — вторая перестановка. Формат выходных данныхВ единственной строке выходного файла выведите одно слово "YES", если вторая перестановка является обратной первой. Иначе выведите "NO".

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

treningi · Accepted Answer

uses crt; var i,j,k,n,sum: integer; a: array[1… 100] of integer; flag: boolean; beginflag: =false; writeln ('Input N'); read (n); writeln ('Input elements'); for i: =1 to n doread (a[i]); for i: =1 to n dofor j: =1 to n dofor k: =1 to n doif (i<>j) and (j<>k) and (i<>k) thenif a[i]+a[j]+a[k]=0 then f flag=false thenwriteln ('No'); end. uses crt; var i,j,k,n,sum: integer; a: array[1… 100] of integer; flag: boolean; beginflag: =false; writeln ('Input N'); read (n); writeln ('Input elements'); for i: =1 to n doread (a[i]); for i: =1 to n dofor j: =1 to n dofor k: =1 to n doif (i<>j) and (j<>k) and (i<>k) thenif a[i]+a[j]+a[k]=0 then f flag=false thenwriteln ('No'); end.

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: