fork download
copy 
  1. program ideone;
  2. type
  3.   TUInt8Array = array [0 .. 9] of UInt8;
  4. const
  5.   NUMBERS_ARR: TUInt8Array = (4, 8, 1, 6, 2, 0, 3, 7, 5, 9);
  6. var
  7.   int1stMin: UInt8 = High(UInt8);
  8.   int2ndMin: UInt8 = High(UInt8);
  9.   intNumValue: UInt8;
  10. begin
  11.   for intNumValue in NUMBERS_ARR do
  12.     if intNumValue < int1stMin then
  13.     begin
  14.       int2ndMin := int1stMin;
  15.       int1stMin := intNumValue;
  16.     end
  17.     else
  18.       if intNumValue < int2ndMin then
  19.         int2ndMin := intNumValue;
  20.  
  21.   Write('1st: ', int1stMin, ', 2nd: ', int2ndMin);
  22. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1st: 0, 2nd: 1
https://ideone.com/dN6A2l
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
secret

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!