Перемещение и копирование с меню1. Выделите область ячеек для копирования.2. Для перемещения щелкните кнопку Вырезать - или выберите команду Вырезать из меню Правка (Edit, Cut). Excel показывает границу, окружающую область вырезания.3. Для копирования щелкните по кнопке Копировать - или выберите Правка, Копировать (Edit, Copy). Excel показывает границу, окружающую область копирования.4. Выберите место (верхнюю ячейку области) вставки.5. Щелкните по кнопке Вставить - нажмите Enter или выберите Правка, Вставить (Edit, Paste).Возможность Перетаскивания (Drag and Drop) позволяет перемещать или копировать содержимое выделенных ячеек с мыши. Эта возможность особенно полезна при .перемещении и копировании на небольшие расстояния (в пределах видимой области рабочего листа).Перемещение и копирование перетаскиванием1. Выберите область ячеек для перемещения.2. Переместите указатель мыши на обрамление выделения.3. Перетащите выделение с указателя на новое место. Область ячеек будет перемещена на новое место.4. Если при перетаскивании удерживать нажатой клавишу Ctrl, область ячеек будет скопирована на новое место.
В основу решения возьму тот факт, что точка лежит внутри треугольника только в том случае, если сумма площадей трех образованных этой точкой и вершинами треугольников треугольников равна площади самого треугольника. Для нахождения площади треугольников использую формулу векторного произведения, деленного пополам.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var n:=ReadInteger('Задайте число строк/столбцов массива:'); var a:=MatrixRandom(n,n,-99,99); Writeln('Исходный массив'); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Write(a[i,j]:4); Writeln end; Write('Кол-во нечетных элементов выше главной диагонали: '); var k:=0; for var i:=0 to n-2 do for var j:=i+1 to n-1 do if Odd(a[i,j]) then Inc(k); Writeln(k) end.
