Известна диагональ прямоугольника и угол между диагональю и большей стороной. вычислить площадь прямоугольника . нужно написать линейный алгоритм.

Var   a, b, d, s, alpha: real; begin   write('введите длину диагонали прямоугольника: ');   readln(d);   write('введите величину угла между большей стороной и диагональю : ');   readln(alpha);   alpha : = pi * alpha / 180;   a : = d * cos(alpha);   b : = d * sin(alpha);   s : = a * b;   writeln('площадь прямоугольника равна ', s: 0: 3) end. тестовое решение: введите длину диагонали прямоугольника: 35 введите величину угла между большей стороной и диагональю : 29 площадь прямоугольника равна 519.429

Const n=10; var a: array[1..n] of integer; i: integer; begin randomize; for i: =1 to n do   begin   a[i]: =random(21)-10;   write(a[i]: 4);   end; writeln; for i: =1 to n do   if a[i]> 0 then a[i]: =2*a[i] else if a[i]< 0 then a[i]: =7; for i: =1 to n do write(a[i]: 4); writeln; end.пример:   -4   4 -10   6   -8   9   0   5   3   10    7   8   7   12   7   18   0   10   6   20

Const n=15; var a: array[1..n] of integer; i,s,k: integer; begin randomize; for i: =1 to n do   begin   a[i]: =random(21)-10;   write(a[i]: 4);   end; writeln; s: =0; k: =0; for i: =1 to n do   if a[i]< 0 then a[i]: =0       else if a[i]> 0 then begin s: =s+a[i]; k: =k+1; end; for i: =1 to n do write(a[i]: 4); writeln; writeln('s=',s,' k=',k); end.пример:   -8   -3   10   0   3   1 -10   8   4   -3   9   0 -10   -2   1    0   0   10   0   3   1   0   8   4   0   9   0   0   0   1s=36 k=7