daily pastebin goal
48%
SHARE
TWEET

Untitled

a guest May 16th, 2018 94 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Uses crt;
  2. Const
  3. N = 5;
  4. var
  5. a:array[1..N] of integer;
  6. i,j,k:integer;
  7. begin
  8.       for i:=1 to N do readln(a[i]);
  9.  
  10.       k:= 0;
  11.       for i:=1 to N do
  12.       begin
  13.           if(a[i] div (8*8) <> 0) and
  14.             (a[i] mod 8 = 5) and (a[i] > k) then
  15.           begin
  16.                 k := a[i];
  17.           end;
  18.       end;
  19.      
  20.       writeln(k);
  21.      
  22.      
  23.      
  24.       readkey;
  25. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top