Перестановка элементов массива Перестановка для одного и двух массивов

Поменять местами два элемента массива с номерами k1 и k2. Procedure Obmen(Var m : MyArray; n, k1, k2 : integer;); Var x : integer; Begin x:=m[k1]; m[k1] := m[k2]; m[k2] := x; End;

Поменять местами переднюю и заднюю части массива с чётным количеством элементов for i := 1 to n do Obmen2(A, 2*n, i, i+n,);

Решение задач «Перевернуть» массив; Поменять местами: а) первый элемент и максимальный; б) второй и минимальный;

Найти скалярное произведение двух массивов Скалярным произведением двух массивов одинаковой размерности называется сумма произведений соответствующих элементов. Это можно записать так: a[1]*b[1] + a[2]*b[2] a[n-1]*b[n-1] + a[n]*b[n], где n - это количество элементов в массивах (размерность).

Функция для вычисления скалярного произведения массивов Function Sp (a, b : MyArray; n ; integer) : LongInt; Var i : Integer; s : LongInt; Begin s:= 0; for i := 1 to n do s := s+a[i]*b[i]; Sp := s; End;

Решение задач Дан одномерный массив чисел а. Сформируйте такой массив b, который содержит копию положительных элементов массива а. Дан упорядоченный целочисленный массив. Сформировать второй массив всех таких различных значений, которые в первом массиве встречаются по два и более раза. Даны два целочисленных массива одинаковой размерности. Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данного массива.