Разработать программу, подсчитывающую сумму меньших, чем предыдущие элементов массива Т из 14 чисел. Значения элементов массива рассчитать по формуле tgW, где W номер элемента массива — Pascal(Паскаль)

program fdy;

function tg(x: real): real;
begin
  tg := sin(x) / cos(x);
end;

var
  t: array [1 .. 14] of real;
  i, j: integer;
  b: boolean;
  summa: real;

begin
  for i := 1 to 14 do
    t[i] := tg(i);
  writeln('Ishodnyi massiv:');
  for i := 1 to 14 do
    write(t[i]:8:2);

  summa := 0;

  for i := 2 to 14 do
  begin
    b := true;
    for j := 1 to i do
      if t[j] < t[i] then
        b := false;

    if b then
      summa := summa + t[i];
  end;

  writeln;
  writeln('Summa: ', summa:0:2);

  readln();

end.

Leave a Comment