盗窃 Tyvj P1400 题解

最新推荐文章于 2019-08-03 13:37:28 发布

原创最新推荐文章于 2019-08-03 13:37:28 发布 · 319 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#div

tyvj 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一个使用Pascal语言编写的程序，该程序通过读取两个整数a和b及一系列数值，根据不同条件统计特定数值并输出。代码展示了Pascal语言的基本语法特性，包括变量声明、数组定义、流程控制等。

水题吧，不解释

program P1400; var a,b,ans:longint; t:array [-1..1000] of longint; procedure init; var i:longint; begin ans:=0; readln(a,b); for i:=1 to a do readln(t[i]); end; procedure main; var i,j,k:longint; begin case b of 0:begin for i:=1 to a-1 do begin for j:=i+1 to a do begin if i*t[i]=j*t[j] then begin k:=(i+j) div 2; break; end; end; end; for i:=1 to k do inc(ans,t[i]); writeln(k,' ',ans); halt; end; 1:begin for i:=1 to a-1 do begin for j:=i+1 to a do begin if i*t[i]=j*t[j] then begin k:=(i+j) div 2; break; end; end; end; for i:=a downto k do inc(ans,t[i]); writeln(k,' ',ans); halt; end; end;{case} end; begin init; main; end.