输入N个整数,请找出最小数所在的位置,并把它与第一个对调pascal

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 02:42:57
输入N个整数,请找出最小数所在的位置,并把它与第一个对调pascal
x){o֥~Ovz6u˳t^s]4<ztΊZ}wӝ۞uu=]dG5kh~~ ɉ96IET6l$t;:(?(1WZ,W\gk%)$Z%%VF*)d敤AdddX&gAE%@"ĒT+uM"L+[C|<|X

输入N个整数,请找出最小数所在的位置,并把它与第一个对调pascal
输入N个整数,请找出最小数所在的位置,并把它与第一个对调
pascal

输入N个整数,请找出最小数所在的位置,并把它与第一个对调pascal
program xzpx;
const n=7;
var a:array[1..n] of integer;
i,j,k,t:integer;
begin
write('Enter date:');
for i:= 1 to n do read(a[i]);
writeln;
for i:=1 to n-1 do
begin
k:=i;
for j:=i+1 to n do
if a[j]