Guest User

Untitled

a guest
Aug 13th, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.28 KB | None | 0 0
  1. const
  2.  N=20;
  3. var
  4.  a: array [1..N] of integer;
  5.  i, j, min: integer;
  6. begin
  7.  min:=1000;
  8.  for i:=1 to N do
  9.  readln(a[i]);
  10.  for i:=1 to N do
  11.   begin
  12.    if (a[i] mod 2=0) and (a[i] mod 3<>0) then
  13.     if a[i] < min  then
  14.        min:=a[i];
  15.    end;
  16.  writeln(min);
  17.      
  18.  
  19. end.
Add Comment
Please, Sign In to add comment