pascal语言:输入一个5*5的数组,输出马鞍数的位置.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 13:32:09
pascal语言:输入一个5*5的数组,输出马鞍数的位置.
马鞍数是指它所在那一行最小,你一列最大的数.
如输入:
1 2 3 4 5
2 3 4 5 6
3 4 5 6 7
4 5 6 7 8
5 6 7 8 9
则输出:(5,1)
马鞍数是指它所在那一行最小,你一列最大的数.
如输入:
1 2 3 4 5
2 3 4 5 6
3 4 5 6 7
4 5 6 7 8
5 6 7 8 9
则输出:(5,1)
var a:array[1..5,1..5] of integer;
i,j,max,ij,x,y:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
max:=a[i,1];
for ij:=2 to 5 do
if max>a[i,ij] then begin
max:=a[i,ij];
x:=i;
y:=j;
end;
if max=a[i,1] then begin x:=i;y:=j; end;
for ij:=2 to 5 do
if max<a[ij,j] then max:=0;
if max<>0 then break;
end;
if max<>0 then break;
end;
if max=0 then writeln('no')
else writeln('(',x,',',y,')',':',max);
end.
i,j,max,ij,x,y:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
max:=a[i,1];
for ij:=2 to 5 do
if max>a[i,ij] then begin
max:=a[i,ij];
x:=i;
y:=j;
end;
if max=a[i,1] then begin x:=i;y:=j; end;
for ij:=2 to 5 do
if max<a[ij,j] then max:=0;
if max<>0 then break;
end;
if max<>0 then break;
end;
if max=0 then writeln('no')
else writeln('(',x,',',y,')',':',max);
end.
pascal语言:输入一个5*5的数组,输出马鞍数的位置.
PASCAL找马鞍数问题是这样的:给定一个n*n数字方阵,求其中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列
2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列
用C语言编写程序,求一个n*n数阵中的马鞍数,输出它的位置.
编写c语言二维数组一、任意输入15个整数到二维数组中,将它们输出显示成一个5行3列的数阵.二、任意输入9个整数到二维数组
pascal语言:输入n个数,并输出最大的数和最小的数
C语言问题,输入一个不大于5位的数,交换其各个位上数的位置.例如:输入12345,要求输出54321
编写pascal语言程序,输入一个三位数的自然数,然后把这个数的百位数与个位数对调,输出对调后的数.
输入一个4行4列的二维数组,统计偶数的个数,并输出所有小于5的数.
输入n个整数,请找出最小数所在的位置,并把它与第一个数对调.(pascal 数组)
pascal或JAVA语言 将二维数组行和列的元素互换后输出
free pascal 马鞍数