写出任意100个数中最小数的算法

冒泡算法
procedure()
var
i,j,temp:integer;
changed:boolean;
begin
***数组赋值就不写了
**i:=1;
****repeat
********changed:=false;
********for j:=1 to 100-i do
***********begin
*************if data[j]***************begin
************************temp:=data[j];
************************data[j]:=data[j+1];
************************data[j+1]:=temp;
************************changed:=true;
***************end;
***********end;
**********i:=i+1;
****until (i=100)or(not changed);
end;

//大概就这样了
int min=0;
for(i=1;i<100;i++)
{
if(data[i] min=i; //记录当前最小值下标
}

什么语言啊 ？
C?
vb?
vf?
java?
86?