Нужно решить несколько задач на Delphi

[replaced]

В связи с тем что болел не успеваю сделать задания, так что прошу о помощи со следующими задачами:

1. Для вектора A(n) определить сумму элементов с номерами от k до m (k< m < n ).(одномерные массивы)
2. Создать приложение, выполняющее сортировку элементов целочисленного массива m[10] с помощью алгоритма сортировки обменами (пузырьковая сортировка).
3. В матрице A(5,5) поменять местами максимальный и минимальный элементы матрицы, расположенные на главной диагонали (Многомерные массивы)
4. Задать два множества. Напечатать результат объединения и результат пересечения этих множеств.
5. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284). Написать все пары “дружественных” чисел, не превосходящих заданного натурального числа, проверку чисел организовать в процедуре.
6. Описать функцию, определяющую какой целой степенью числа 2 является ее аргумент (если число не является степенью 2 выдать соответствующее сообщение).
7. Запись содержит следующие сведения: фамилия абонента, вид оплаты, сумма оплаты. Занесите данные о 10 абонентах в файл. Выведите:
- суммарную оплату по всем абонентам,
- фамилии абонентов в алфавитном порядке.
(записи).
8. Создать два текстовых файла с произвольным количеством строк. Дописать один файл в конец другого.


Заранее очень благодарен.

[Chudo4258]

скорее всего описка в задаче, наверно так:

1. Для вектора A(n) определить сумму элементов с номерами от k до m (k< n < m ).(одномерные массивы)

readln(l);\\кол-во элем. массива
\\заполняешь массив
for n:=1 to l do
 readln(A[n]);
readln(k);
readln(m);
for n:=k to m do
 S:=S+A[n];
writeln(S);

2. Создать приложение, выполняющее сортировку элементов целочисленного массива m[10] с помощью алгоритма сортировки обменами (пузырьковая сортировка).

ТУТ

3. В матрице A(5,5) поменять местами максимальный и минимальный элементы матрицы, расположенные на главной диагонали (Многомерные массивы)

\\заполняешь массив
for i:=1 to 5 do
 for j:=1 to 5 do
  readln(A[i,j]);
\\поиск min max
Nmin:=1;
Nmax:=1;
for i:=2 to 5 do
  begin
   if A[i,i]<A[Nmin,Nmin] then Nmin:=i;
   if A[i,i]>A[Nmax,Nmax] then Nmax:=i;
  end;
\\меняешь местами
S:=A[Nmin,Nmin];
A[Nmin,Nmin]:=A[Nmax,Nmax];
A[Nmax,Nmax]:=S;

Полное оформление этих задач и решение остальных задач за денюшку. Если надо пиши сюда, договоримся.

[replaced]

спасибо большое