Транспонирование квадратной матрицы - Pascal

Формулировка задачи:

Всем привет! Ребята, кто умеет работать в паскале, помогите мне пожалуйста составить вот эти программки:

Задача 1

Элементы одномерного массива С(I) получаются расчетом по формуле С(I) = 7sin(i)  i/2. Подсчитайте сумму элементов, находящихся после минимального элемента. Сформируйте новый массив F(N), состоящий из элементов, находящихся до минимального элемента массива С(I).

Задача 2

Введите с клавиатуры одномерный массив Z(S), элементами которого являются положительные и отрицательные целые числа. Определите среднее арифметическое значение среди положительных и отрицательных чисел массива и сравнить их модули между собой.

Задача 3

Составить программу транспонирования квадратной матрицы 3-го порядка с выводом результата на экран в виде двумерного массива. Ребят помогите пожалуйста очень нужно. Заранее большое спасибо

Решение задачи: «Транспонирование квадратной матрицы»

Листинг программы

uses crt;
type
mass = array[1..100] of real;
var
i,j,n : integer;
min, s : real;
c,f : mass;
begin
read(n); {Г“ГЄГ*Г§Г»ГўГ*ГҐГ¬ Г°Г*Г§Г¬ГҐГ°Г*Г®Г±ГІГј Г¬Г*Г±Г±ГЁГўГ*}
for i := 1 to n do
    begin
    c[i] := 7*sin(i)*(i/2);   {Г‡Г*ГЇГ®Г«Г*ГїГҐГ¬ Г¬Г*Г±Г±ГЁГў}
    write(c[i]:4:1,'  ');
    end;
    
min := c[i];
for i := 1 to n do
   begin
   if(min > c[i]) then
      begin
      min := c[i];
      j := i;
      end;
   end;
writeln;
writeln('Min element = ',min:4:1);
 
for i := j + 1 to n do
s := s + c[i];
 
writeln('Sum posle min = ',s:4:1);
 
for i := 1 to j - 1 do
    begin
    f[i] := c[i];
    write(f[i]:4:1,'  ');
    end;
   
end.

Объяснение кода листинга программы

Входные данные представлены числом n, которое описывает размер матрицы.
Создается массив c размером n, инициализированный значениями 7sin(i)(i/2).
Выполняется цикл по всем элементам массива c, и выводится на экран значение каждого элемента, отформатированное как 4 цифры с 1 пробелом.
Находится минимальное значение в массиве c, и его индекс сохраняется в переменной j.
Создается переменная s, которая будет использоваться для подсчета суммы элементов массива c, начиная с элемента с индексом j.
Выводится на экран минимальное значение из массива c.
Выполняется цикл, начиная с элемента с индексом j+1, и каждый элемент массива c добавляется к переменной s.
Выводится на экран сумма элементов массива c, начиная с элемента с индексом j.
Создается массив f размером j-1, который будет содержать элементы массива c, начиная с первого элемента и до элемента с индексом j-1.
Выполняется цикл по всем элементам массива f, и выводится на экран значение каждого элемента, отформатированное как 4 цифры с 1 пробелом.