pascal马鞍数对于一个n*n的数阵(n行n列),如果数阵中某个数在它所在的行上是最小的数,而在它所在的列上是最大的数,则称该数为马鞍数,求给出的数阵中的马鞍数.输入有n+1行,第一行一个整
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 17:10:34
![pascal马鞍数对于一个n*n的数阵(n行n列),如果数阵中某个数在它所在的行上是最小的数,而在它所在的列上是最大的数,则称该数为马鞍数,求给出的数阵中的马鞍数.输入有n+1行,第一行一个整](/uploads/image/z/1751809-49-9.jpg?t=pascal%E9%A9%AC%E9%9E%8D%E6%95%B0%E5%AF%B9%E4%BA%8E%E4%B8%80%E4%B8%AAn%2An%E7%9A%84%E6%95%B0%E9%98%B5%EF%BC%88n%E8%A1%8Cn%E5%88%97%EF%BC%89%2C%E5%A6%82%E6%9E%9C%E6%95%B0%E9%98%B5%E4%B8%AD%E6%9F%90%E4%B8%AA%E6%95%B0%E5%9C%A8%E5%AE%83%E6%89%80%E5%9C%A8%E7%9A%84%E8%A1%8C%E4%B8%8A%E6%98%AF%E6%9C%80%E5%B0%8F%E7%9A%84%E6%95%B0%2C%E8%80%8C%E5%9C%A8%E5%AE%83%E6%89%80%E5%9C%A8%E7%9A%84%E5%88%97%E4%B8%8A%E6%98%AF%E6%9C%80%E5%A4%A7%E7%9A%84%E6%95%B0%2C%E5%88%99%E7%A7%B0%E8%AF%A5%E6%95%B0%E4%B8%BA%E9%A9%AC%E9%9E%8D%E6%95%B0%2C%E6%B1%82%E7%BB%99%E5%87%BA%E7%9A%84%E6%95%B0%E9%98%B5%E4%B8%AD%E7%9A%84%E9%A9%AC%E9%9E%8D%E6%95%B0.%E8%BE%93%E5%85%A5%E6%9C%89n%2B1%E8%A1%8C%2C%E7%AC%AC%E4%B8%80%E8%A1%8C%E4%B8%80%E4%B8%AA%E6%95%B4)
pascal马鞍数对于一个n*n的数阵(n行n列),如果数阵中某个数在它所在的行上是最小的数,而在它所在的列上是最大的数,则称该数为马鞍数,求给出的数阵中的马鞍数.输入有n+1行,第一行一个整
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
pascal马鞍数对于一个n*n的数阵(n行n列),如果数阵中某个数在它所在的行上是最小的数,而在它所在的列上是最大的数,则称该数为马鞍数,求给出的数阵中的马鞍数.输入有n+1行,第一行一个整
我看了一下你的程序,发现有许多问题,以下是我改的
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