Advertisement
Guest User

Untitled

a guest
Mar 13th, 2019
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.50 KB | None | 0 0
  1. program n1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.    SysUtils;
  9. var
  10.    N, Counter, i, N2, Rdm: Int64;
  11.    MyArr: array of array[1..2] of Int64;
  12. begin
  13.    Randomize;
  14.    ReadLn(N);
  15.    Counter := 0;
  16.    N2 := Trunc(N / 2);
  17.    for i := 0 to N2 do
  18.    begin
  19.       Inc(Counter);
  20.    end;
  21.    SetLength(MyArr, Counter);
  22.    for i := 0 to N2 do
  23.    begin
  24.       MyArr[i, 1] := i;
  25.       MyArr[i, 2] := N - i;
  26.    end;
  27.    Rdm := Random(N2);
  28.    WriteLn(MyArr[Rdm, 1], ' ', MyArr[Rdm, 2]);
  29.    ReadLn;
  30. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement