Чем отличаются режимы вставки и вставить в офисных приложениях ms windows

Есть несколько видов вставки. 1. копировать вставить 2. вырезать вставить 3. вставка с заменой это когда нажата клавиша ins как таковой они все вставляют содержимое, но в тоже время процедура разная. так же как и ворд использует свой буфер обмена, в который добавляет копированные файлы и из него же их поднимает для копирования. а тот же обычный блокнот использует буфер самой оси виндовс. так что думайте

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в матрице: ');   var n: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var b: =a.rows.select((x,r)-> (x.where(q-> q< 0).count,r));   foreach var x in b do write(x[1]+1,')',x[0],'  ') end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   40  50    4  44  10  13  39    5   10 -41  -9  38  27  -9  34    9     8  29  37 -18  13 -41  23  -8   15 -49 -27 -31 -22  -4  46 -31   -36  36  34 -43 -33 -23 -24  -6 1)0  2)3  3)3  4)6  5)6  // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',m,'] ***');   var a: =matrrandom(m,m,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var s: =0;   for var i: =0 to m-1 do s: =s+a[i,i];   writeln('ср.арифметическое равно ',s/m) end. пример количество строк/столбцов в матрице: 5 *** исходная матрица [5,5] ***   10  47  -5 -37  30   44  39    1  24  46   47    6 -26 -32 -16   -8 -49  18  15  22     4    4 -48 -36 -14 ср.арифметическое равно 4.8

№1 var m,n,i,j,col: integer; ar: array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i: =1 to m do begin write(i,': '); for j: =1 to n do begin read(ar[i,j]) end; end; for i: =1 to m do begin for j: =1 to n do begin if (ar[i,j]< 0) then col: =col+1; end; writeln(i,': ',col); col: =0; end; end.  №2var m,n,i,j,sum,col: integer; ar: array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i: =1 to m do begin write(i,': '); for j: =1 to n do begin read(ar[i,j]) end; sum: =0; end; for i: =1 to m do begin for j: =1 to n do begin if (i=j) then begin col: =col+1; sum: =sum+ar[i,j]; end; end; end; writeln(sum/col); end.