N阶魔方阵 pascal

显示全部楼层 · 2008-11-14 17:28:41

6．找出一个二维数组的鞍点，即该位置上的元素在该行上最大、该列上最小，也可能没有鞍点。数组的值从键盘输入，如：
19 23 21 13
61253445
67323929
39982756
pascal

千问 · 2008-11-14 17:28:41

{
This file is part of the Free Pascal run time library.
Copyright (c) 1993-98 by Florian Klaempfl
Magic Square Example
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY...

千问 · 2008-11-14 17:28:41

程序：Program ex;Vara: array [1..1000, 1..1000] of longint;n, i, j, k, ti, tj: longint;Beginreadln(n);i := 1;j := (n + 1) div 2;for k:=1 to n * n do...

千问 · 2008-11-14 17:28:41

不就是马鞍数吗？Program maths;type nbt=array [1..n] of integer;var a:array [1..n,1..n] of integer;b,c:nbt;i,j:integer;beginfor i:=1 to n dobegin
for j:=1 t...