Яким чином позначаються рядки і стовбці електронної таблиці

205

469

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

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

sonyasm2006

Информатика

4,6(20 оценок)

?............ 9......

Masha00317

Информатика

4,7(34 оценок)

//прога на pascal`e var n,i,j,f,q,k: longint; x,y,b,a: array[0..30000] of longint; begin read(n); for i: =1 to n do read(a[i]); for i: =1 to n do read(b[i]); for i: =1 to n do begin for j: =i to n do if a[i]=b[j] then begin f: =j; break; end; for j: =f downto i+1 do begin q: =b[j]; b[j]: =b[j-1]; b[j-1]: =q; inc(k); x[k]: =j-1; y[k]: =j; end; end; writeln(k); for i: =1 to k do writeln(x[i],' ',y[i]); end.