dollars.pas

来自「背包问题专项训练 动态规划算法 有题目的C++解法」· PAS 代码 · 共 32 行

{ Rjesenje napisali Kresimir Malnar, Ante Djerek i Bojan Antolovic }

program dolari;
const
  MAX_DANA = 100;
var
  i : integer;
  broj_dana : integer;
  tecaj : array [1..MAX_DANA] of integer;
  dolara : real;
  f : text;

begin
  assign(f,'DOLLARS.IN');
  reset(f);
  read(f,broj_dana);
  for i := 1 to broj_dana do
    read(f,tecaj[i]);
  close(f);

  dolara := 100;
  for i := 1 to broj_dana - 1 do
    if tecaj[i] > tecaj[i + 1] then
      dolara := dolara * tecaj[i] / tecaj[i + 1];

  assign(f,'DOLLARS.OUT');
  rewrite(f);
  writeln(f,dolara : 0 : 2);
  close(f);
end.