wikioi 1990 工作分配 pascal 标程

1990 工作分配
1人推荐 收藏 发题解

提交代码

报错

题目描述

输入描述

输出描述

样例输入

样例输出

提示

题目描述 Description
新录A、B、C三个工人，每人分配一个工种，每个工种只需一人，经测试，三人做某种工作的效率如下表所示。如何分配三人的工作才能使他们工作效益最大？

输入描述 Input Description
为1个3×3的矩阵，矩阵的第一行为A做三种工作的效益，
第二行为B做三种工作的效益，第三行为C做三种工作的效益。
输入保证各效益的范围满足1≤N≤2147483647的整数。

输出描述 Output Description
一个整数，为最大效益值。

样例输入 Sample Input
4 3 3
2 4 3
4 5 2

样例输出 Sample Output
12

数据范围及提示 Data Size & Hint

var
a:array[1..3,1..3]of longint;
ans:int64;
i,j,k:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do read(a[i,j]);
for i:=1 to 3 do
for j:=1 to 3 do if (i<>j) then
for k:=1 to 3 do if(i<>k) and (j<>k) then
if a[1,i]+a[2,j]+a[3,k]>ans then ans:=a[1,i]+a[2,j]+a[3,k];
writeln(ans);
end.

搜一下：wikioi 1990 工作分配 pascal 标程