作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 19:59:45
输入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]