diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-11-15 21:27:27 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-11-15 21:27:27 +0000 |
| commit | 9715f6a957689e688b2c4bcbd491e77d318fcbe7 (patch) | |
| tree | 56fc4453c1ddfc507391dcdc3764e56072f2f08b /challenge-243/deadmarshal/pascal/ch1.pas | |
| parent | b3a11494dfbcb9be7052f8f6f32a9afec052485f (diff) | |
| parent | 7d92a145e089e59f0f830843ba91cd7223bc6c98 (diff) | |
| download | perlweeklychallenge-club-9715f6a957689e688b2c4bcbd491e77d318fcbe7.tar.gz perlweeklychallenge-club-9715f6a957689e688b2c4bcbd491e77d318fcbe7.tar.bz2 perlweeklychallenge-club-9715f6a957689e688b2c4bcbd491e77d318fcbe7.zip | |
Merge pull request #9075 from deadmarshal/TWC243_extra
TWC243 extra solutions
Diffstat (limited to 'challenge-243/deadmarshal/pascal/ch1.pas')
| -rw-r--r-- | challenge-243/deadmarshal/pascal/ch1.pas | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/challenge-243/deadmarshal/pascal/ch1.pas b/challenge-243/deadmarshal/pascal/ch1.pas new file mode 100644 index 0000000000..bd84bf950b --- /dev/null +++ b/challenge-243/deadmarshal/pascal/ch1.pas @@ -0,0 +1,26 @@ +program Ch1; + +{$mode objfpc} +uses + SysUtils,Types; + +var + A1,A2:TIntegerDynArray; + +function ReversePairs(var Arr:TIntegerDynArray):Integer; +var + I,J:Integer; +begin + Result := 0; + for I := Low(Arr) to High(Arr)-1 do + for J := I+1 to High(Arr) do + if Arr[I] > (2 * Arr[J]) then Inc(Result); +end; + +begin + A1 := [1,3,2,3,1]; + A2 := [2,4,3,5,1]; + WriteLn(ReversePairs(A1)); + WriteLn(ReversePairs(A2)); +end. + |