Dennnhhhickk

Untitled

Oct 4th, 2016
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.58 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 100000;
  10.  
  11. var
  12. n, i, j: integer;
  13. a: array [1..MAXIN] of extended;
  14. x: extended;
  15.  
  16. begin
  17. readln(n);
  18.  
  19. for i := 1 to n do
  20. readln(a[i]);
  21.  
  22.  
  23. for i := 2 to n do
  24. for j := n downto i do
  25. if (a[j] > a[j - 1]) then
  26. begin
  27. x := a[j];
  28. a[j] := a[j - 1];
  29. a[j - 1] := x;
  30. end;
  31.  
  32. //for i := 1 to n do
  33. //writeln(a[i]);
  34.  
  35. for i := 1 to n - 1 do
  36. a[i + 1] := 2 * sqrt(a[i] * a[i + 1]);
  37.  
  38. writeln(a[n]:0:2);
  39. readln;
  40. readln;
  41. end.
Advertisement
Add Comment
Please, Sign In to add comment