a guest Oct 11th, 2018 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var a:array[1..100]of integer;
  2.     i,n,min:integer;
  3. begin
  4.           repeat readln(n); until (n>0) and (n<101);
  5.           for i:=1 to n do begin
  6.                            readln(a[i]);
  7.                            min:=a[1];
  8.                            if (a[i] mod 2 = 0) and (a[i]<min) then min:=a[i];
  9.                            end;
  10.           if min mod 2 = 0 then writeln('Najmanji parni element je ',min)
  11.                            else writeln('Nema parnih elemenata');
  12.           readln;
  13. 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