Guest User

Untitled

a guest
Jul 4th, 2020
35
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.48 KB | None | 0 0
  1. var
  2. a:array[1..10000] of integer;
  3. i,n,j,maxs,e1,e2:integer;
  4. begin
  5. maxs:=-1; e1:=0; e2:=0;
  6. read(n);
  7. for i:1 to n do begin
  8. read(a[i]);
  9. for j:1 to n do begin
  10. read(a[j]);
  11. if (abs(a[i]-a[j]) mod 2 = 0) and (a[i]+a[j] > maxs) and ((a[i] mod 27 = 0) or (a[j] mod 27 = 0)) then begin
  12. maxs:= a[i] + a[j];
  13. e1:=a[i];
  14. e2:=a[j];
  15. end;
  16. end;
  17. end;
  18. if maxs > 0 then
  19. write(e1, " ", e2)
  20. else
  21. write(00);
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment