fork download
copy 
  1. program ideone;
  2. var a, n, i, min: integer;
  3. begin
  4. 	min:=3001;
  5. 	read(n);
  6.  
  7. 	for i:= 1 to n do
  8. 	begin
  9. 		readln(a);
  10. 		if (a mod 10 = 3) and (a < min) then
  11. 			min := a;
  12. 	end;
  13.  
  14. 	writeln(min);
  15. end.
Success #stdin #stdout 0.01s 5276KB
comments (?)
stdin
copy 
23
38
79
113
13
63
stdout
copy 
13
https://ideone.com/zj5Eo8
language:
Pascal (fpc 3.0.4)
created:
12 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!