.:Пошук мінімального елемента в масиві:.

program Hello;

const n=10;

var a:array[1..n] of integer;

min,i:integer;

begin

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i],' ');

end;

min:=a[1];

for i:=2 to n do

if a[i] < min then

min:=a[i];

writeln('Min: ',min);

end.