pascal马鞍数对于一个n*n的数阵（n行n列）,如果数阵中某个数在它所在的行上是最小的数,而在它所在的列上是最大的数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/16 12:55:34

pascal马鞍数
对于一个n*n的数阵（n行n列）,如果数阵中某个数在它所在的行上是最小的数,而在它所在的列上是最大的数,则称该数为马鞍数,求给出的数阵中的马鞍数.
输入有n+1行,第一行一个整数n,表示n*n数阵.以下n行每行n个数,构成n*n数阵,同一行上每两个数之间用空格隔开.(n　a[i,j] then
begin
m:=a[i,j];
l:=j ;
end;
for j:=1 to n do
if m

我看了一下你的程序,发现有许多问题,以下是我改的
var i,j,n,m,l,k,s:longint;
pd,pp:boolean;
a:array[1..100,1..100] of integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]); //读入
for i:=1 to n do //判断马鞍数
begin
l:=0; m:=a[i,1]; pd:=true; //初始赋值
for j:=2 to n do
if m>a[i,j] then //判断一行最小的数
begin
m:=a[i,j]; l:=j; 赋值
pp:=true; //pp用来看是否进入l赋值
end;
if pp then 当l被赋值
begin
for j:=1 to n do
if m
再问：你这个不行的输入 5 5 6 7 8 9 4 5 6 7 8 3 4 5 2 1 2 3 4 9 0 1 2 5 4 8 输出的不是1 1 5
再答：对不起，搞忘了，我重新修改了一下，因该没问题了（其实你的没错，我看错了，帮你加上判断没有马鞍数的语句了） var i,j,n,m,l,k,s:longint; pd,pp:boolean; a:array[1..100,1..100] of integer; begin read(n); for i:=1 to n do for j:=1 to n do read(a[i,j]); //读入 for i:=1 to n do //判断马鞍数 begin l:=1; m:=a[i,1]; pd:=true; //初始赋值 for j:=2 to n do if m>a[i,j] then //判断一行最小的数 begin m:=a[i,j]; l:=j; //赋值 end begin for j:=1 to n do if m

pascal马鞍数对于一个n*n的数阵（n行n列）,如果数阵中某个数在它所在的行上是最小的数,而在它所在的列上是最大的数 PASCAL找马鞍数问题是这样的：给定一个n*n数字方阵,求其中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列输入n个整数,请找出最小数所在的位置,并把它与第一个数对调.(pascal 数组） 2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列用C语言编写程序,求一个n*n数阵中的马鞍数,输出它的位置. pascal语言:输入n个数,并输出最大的数和最小的数 pascal编程输入n个整数,找出最大数所在的位置,并将它与第一个数对调输入N个整数,请找出最小数所在的位置,并把它与第一个对调 pascal题在N行N列的数阵中,数K（1〈＝K〈＝N）在每行和每列中出现且仅出现一次,这样的数阵叫N阶拉丁方阵.例如用C语言编程解决:在 n 行 n 列的矩阵中,每行都有最大的数,求这 n 个最大数中的最急求free pascal高手编程：蛇形填数,在n*n的格子中,按如下方式填数. 有三个连续奇数,最大的数是n,最小的数是多少