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

Question

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

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

---

Answer 1

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)
  end
end.

Тестовое решение:
Элементы массива:    1  32  34  15   6   3  21 -33  -5  43 -36  13 -42  21  37 -31 -27 -47  -3 -26
B=-0.340400748145722