Составить алгоритм и написать программу для решения задачи с ИСПОЛЬЗОВАНИЕМ ОДНОМЕРНЫХ МАССИВОВ.

Вычислить (см. фото)

const  n = 20;var  x: array[1..n] of integer;  T, i: integer;  A, B, C: real;begin  Randomize;  Write('Элементы массива: ');  T := 0;  for i := 1 to n do  begin    x[i] := Random(101) - 50;    Write(x[i]:4);    T := T + x[i]  end;  Writeln;  if T < 0 then begin    B := cos(T + Pi / 4);    Writeln('B=', B)  end  else if T = 0 then begin    C := 1;    Writeln('C=', C)  end  else begin    A := sin(T);    Writeln('A=', A)  endend.Тестовое решение:Элементы массива:    1  32  34  15   6   3  21 -33  -5  43 -36  13 -42  21  37 -31 -27 -47  -3 -26B=-0.340400748145722