Question

pascal编程

把1、2、3、4、5、6六个数字填入下列各括号中，不能重复和遗漏，使各边数字之和相等。编程求出a、b、c、d、e、f等于多少？
(a)
(b) (f)
(c) (d) (e)
（提示：用六重for循环穷举，可参照P152编程第5题，本题是求排列的结果。）
输出：
1:1 4 5 2 3 6

2:1 5 3 4 2 6
3:1 6 2 4 3 5
4:1 6 3 2 5 4
5:2 3 6 1 4 5
6:2 4 3 5 1 6
7:2 5 4 1 6 3
8:2 6 1 5 3 4
9:3 2 5 4 1 6
10:3 4 2 6 1 5
11:3 5 1 6 2 4
12:3 6 1 4 5 2
13:4 1 6 3 2 5
14:4 2 6 1 5 3
15:4 3 5 1 6 2
16:4 5 2 3 6 1
17:5 1 6 2 4 3
18:5 2 3 6 1 4
19:5 3 4 2 6 1
20:5 4 1 6 3 2
21:6 1 4 5 2 3
22:6 1 5 3 4 2
23:6 2 4 3 5 1

24:6 3 2 5 4 1

6、求5*5方阵的最大、最小值以及它们所处的位置。（提示：先通过两重循环读取方阵中的数据存储到二维数组元素中，然后构造两种循环，在循环里同时查找最大数和最小数，同时分别用两个简单变量记录最大值和最小值所在的行列值。）
输入：
4 6 56 74 33
12 7 45 9 80
24 31 67 3 80
6 87 34 67 10
90 55 77 39 20
输出：
max=90 weizhi=(5,1)
min=3 weizhi=(3,4)

Answer 1

var a,b,c,d,e,f,g,i:byte;

begin

  for a:=1 to 6 do

   for b:=1 to 6 do

    if b<>a then

     for c:=1 to 6 do

      if (c<>b)and(c<>a) then

       for d:=1 to 6 do

        if not (d in [a,b,c]) then

         for e:=1 to 6 do

          if not (e in [a,b,c,d]) then

          begin

           inc(i);

           f:=21-a-b-c-d-e;

           if (a+b+c=c+d+e)and(c+d+e=e+f+a) then

           begin

            inc(g);

            writeln(g:2,':',a:2,b:2,c:2,d:2,e:2,f:2);

           end;

          end;

end.

追问

第6题呢？写完加分

追答

var
a:array[1..10,1..10]of integer;

i,j,max,min,maxx,maxy,minx,miny:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do

read(a[i,j]);

maxx=1; maxy=1; minx=1; miny=1;

max:=a[1,1]; min:=max;

for i:=1 to 5 do

begin

j:=1;

repeat

if a[i,j]>max then

begin

max:=a[i,j]; maxx=i; maxy=j;

end;

if a[i,j]5;

end;

writeln('max=',max,' weizhi=(',maxx,',',maxy,')');

writeln('min=',min,' weizhi=(',minx,',',miny,')');

end.