Помощь в решении задач. (Pascal)

[Ignoree]

Всем привет. В программировании я не очень понимаю, но мне надо решить 3 задачи. Моих знаний хватит чтобы объяснить их решение, но не написать на языке программирования. Помогите, пожалуйста, их решить.

1) В матрице B (m,m) подсчитать произведение элементов, расположенных на побочной диагонали.
2) Вычислить arcsinx. arcsinx=arctg(x\sqrt(1-x^2)). Словами: "Икс разделить на корень из один минус икс в квадрате".
3) В массиве D (n) сумму отрицательных элементов поставить на место минимального элемента.

[ZX Spectrum-128]

1,3
http://programmersforum.ru/showthread.php?t=70310

[reflexx]

1.

program task_1;

type
  TMatrix = array [,] of Integer;

var
  Matrix: TMatrix;
  n: Integer;
  k: Integer := 1;

begin
  WriteLn('Введите размерность матрицы: ');
  Read(n);
  
  SetLength(Matrix, n, n);
  
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do begin
      Matrix[i, j]:=-10 + Random(20);
      Write(Matrix[i, j]: 4);
    end;
    WriteLn();
  end;
  
  for var i:=0 to n-1 do
   k*=Matrix[i, n-1-i]; 
   
  WriteLn('Произведение элементов побочной диагонали: ', k); 
end.

2.

program task_2;

var
  k: Real;
  x: Real;

begin
  WriteLn('Введите X: ');
  Read(x);
  
  k:=arctan(x / sqrt(1 - power(x, 2)));
  
  WriteLn('arcsin: ', arcsin(x));
  WriteLn('формула: ', k);
end.

3.

program task_3;

type 
  TArray = array of Integer;
  
var
  Massive: TArray;
  n: Integer;
  Min: Integer;
  MinIndex: Integer := 0;
  Summ: Integer := 0;

begin
  WriteLn('Введите размерность массива: ');
  Read(n);
  
  SetLength(Massive, n);
  
  for var i:=0 to n-1 do begin
    Massive[i]:=-10 + Random(20);
    Write(Massive[i], ' ');
  end;
      
  Min:=Massive[0];  
  for var i:=0 to n-1 do begin
    if (Massive[i] < 0) then
     Summ+=Massive[i];
    if (Massive[i] < Min) then begin
      Min:=Massive[i];
      MinIndex:=i;
    end;
  end;
  
  if not (Summ = 0) then
   Massive[MinIndex]:=Summ;
  
  WriteLn();
  for var i:=0 to n-1 do
   Write(Massive[i], ' ');
end.