rovect3.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 17 行

program vector1;
var  v:array[1..100]of integer;
     i,min,j,x,k  :integer;
begin
i:=0;
repeat
write('x=');readln(x);
i:=i+1;
v[i]:=x;
until x=0;
i:=i-1;
min:=v[1];
    for k:=2 to i do
        if v[k]<min then min:=v[k];
write ('min=',min);
readln;
end.