Var n,min,i:integer; chisl :array[1..1000]of integer;begin randomize; min:=1000; Writeln('vvedity n='); readln(n); for i:=1 to n do begin chisl[i]:=random(1000); writeln(chisl[i]); end; for i:=1 to n do begin if chisl[i]<min then min:=chisl[i]; end; Writeln('Minimum=',min);end.
