var i,min: integer; a: array [1..10] of integer; begin for i: = 1 to 10 do begin read(a[i]); if (i=1) or (min> a[i])then min: =a[i]; end; writeln(min); end.
var i,min: integer; a: array [1..10] of integer; begin for i: = 1 to 10 do begin read(a[i]); if (i=1) or (min> a[i])then min: =a[i]; end; writeln(min); end.