fork download
copy 
  1. program minimum;
  2. const n = 10;
  3. var a:array [1..n] of integer;
  4.     i,min: integer;
  5. begin
  6.   randomize;
  7.   a[1]:=10+random(90);
  8.   min:=a[1];
  9.   write(a[1], ' ');
  10.   for i:=2 to n do
  11.   begin
  12.     a[i]:=10+random(90);
  13.     write(a[i], ' ');
  14.     if a[i] < min then min:=a[i];
  15.   end;
  16.   writeln;
  17.   writeln('min: ', min);
  18.   readln;
  19. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
74 19 33 42 28 53 84 96 47 96 
min: 19
https://ideone.com/2ALlAc
language:
Pascal (gpc 20070904)
created:
6 years 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!