前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >1441: Min

1441: Min

作者头像
HansBug
发布2018-04-11 10:36:24
7710
发布2018-04-11 10:36:24
举报
文章被收录于专栏:HansBug's LabHansBug's Lab

1441: Min

Time Limit: 5 Sec  Memory Limit: 64 MB

Submit: 320  Solved: 213

[Submit][Status][Discuss]

Description

给出n个数(A1...An)现求一组整数序列(X1...Xn)使得S=A1*X1+...An*Xn>0,且S的值最小

Input

第一行给出数字N,代表有N个数 下面一行给出N个数

Output

S的最小值

Sample Input

2 4059 -1782

Sample Output

99

HINT

Source

题解:今天才知道有个很神奇的东西叫做裴蜀定理= =

比如此题中(详见 百度百科——裴蜀定理

代码语言:javascript
复制
 1 /**************************************************************
 2     Problem: 1441
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:0 ms
 7     Memory:224 kb
 8 ****************************************************************/
 9  
10 var
11    i,j,k,l,m,n:longint;
12 function gcd(x,y:longint):longint;
13          var z:longint;
14          begin
15               x:=abs(x);y:=abs(y);
16               while y<>0 do
17                     begin
18                          z:=x mod y;
19                          x:=y;
20                          y:=z;
21                     end;
22               exit(x);
23          end;
24 begin
25      readln(n);
26      read(m);
27      if n=1 then
28         begin
29              readln;
30              writeln(m);
31              readln;
32              halt;
33         end;
34      for i:=2 to n do
35          begin
36               read(j);
37               m:=gcd(m,j);
38          end;
39      readln;
40      writeln(m);
41      readln;
42 end.
本文参与 腾讯云自媒体分享计划,分享自作者个人站点/博客。
原始发表:2015-05-01 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 1441: Min
  • Description
  • Input
  • Output
  • Sample Input
  • Sample Output
  • HINT
  • Source
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档