1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
program Ch1;
{$mode objfpc}
uses
SysUtils,Types;
var
A1,A2,A3:TIntegerDynArray;
function RemoveOne(var Arr:TIntegerDynArray):Boolean;
var
I,C1,C2,Idx1,Idx2:Integer;
begin
C1 := 0; C2 := 0;
Idx1 := -1; Idx2 := -1;
for I := 1 to High(Arr) do
begin
if Arr[I] <= Arr[I-1] then
begin
Inc(C1);
Idx1 := I-1;
end;
end;
I := High(Arr)-1;
while I > 0 do
begin
if Arr[I] >= Arr[I+1] then
begin
Inc(C2);
Idx2 := I+1;
end;
Dec(I);
end;
if (C1 = 1) and (C2 = 1) and ((Idx2 - Idx1 + 1) = 2) then Exit(True);
if (C1 > 1) or (c2 > 1) then Exit(False);
Exit(True);
end;
begin
A1 := [0,2,9,4,5];
A2 := [5,1,3,2];
A3 := [2,2,3];
WriteLn(RemoveOne(A1));
WriteLn(RemoveOne(A2));
WriteLn(RemoveOne(A3));
end.
|
