fork download
  1. program q222118069;
  2. type
  3. TDynArray = array of Integer;
  4.  
  5. function Max(a: TDynArray): Integer;
  6. var
  7. i: Integer;
  8. begin
  9. Max := Low(a);
  10. for i := Low(a) to High(a) do
  11. if a[i] > a[Max] then
  12. Max := i;
  13. Max := a[Max];
  14. end;
  15.  
  16. procedure RandAndPrint(var a: TDynArray; n: Integer);
  17. var
  18. i: Integer;
  19. begin
  20. SetLength(a, n);
  21. for i := Low(a) to High(a) do
  22. begin
  23. a[i] := Random(101) - 50;
  24. Write(a[i]:4);
  25. end;
  26. WriteLn;
  27. end;
  28.  
  29. var
  30. n, m: Integer;
  31. a, b: TDynArray;
  32. begin
  33. Randomize;
  34. ReadLn(n, m);
  35. RandAndPrint(a, n);
  36. RandAndPrint(b, m);
  37. if Max(a) > Max(b) then
  38. WriteLn(Max(a), '(A)')
  39. else
  40. WriteLn(Max(b), '(B)');
  41. end.
Success #stdin #stdout 0s 4388KB
stdin
10 15
stdout
  -4  13  20 -32  17  20 -42 -18  33   9
 -15 -15 -46   1  15 -28 -50 -46   8  -6  -5 -14  22  20  11
33(A)