32 lines
481 B
Plaintext
32 lines
481 B
Plaintext
var
|
|
f: text;
|
|
n, i, j: smallint;
|
|
d: longint;
|
|
v: array of smallint;
|
|
t: array of real;
|
|
|
|
begin
|
|
assign(f, 'CAU2.INP');
|
|
reset(f);
|
|
readln(f, n, d);
|
|
setlength(v, n);
|
|
for i := 0 to n - 1 do
|
|
read(f, v[i]);
|
|
close(f);
|
|
|
|
setlength(t, n);
|
|
for i := 0 to n - 1 do
|
|
t[i] := i + d / v[i];
|
|
|
|
d := 0;
|
|
for i := 1 to n - 1 do
|
|
for j := 0 to i - 1 do
|
|
if t[i] < t[j] then
|
|
inc(d);
|
|
|
|
assign(f, 'CAU2.OUT');
|
|
rewrite(f);
|
|
writeln(f, d);
|
|
close(f)
|
|
end.
|