#include <cstdio>
#include <vector>
#include <algorithm>
using namespace std;
int N, M, H, K;
int S[1003];
int C[1003];
vector<pair<int, int> > stick;
int main() {
scanf("%d %d %d %d", &N, &M, &H, &K);
for (int i = 0; i < N; i++) {
scanf("%d", &S[i]);
C[i] = i;
}
for (int i = 0; i < M; i++) {
int a, b;
scanf("%d %d", &a, &b);
stick.emplace_back(b, a);
}
sort(stick.begin(), stick.end());
for (int i = M - 1; i >= 0; i--) {
int a = stick[i].second;
swap(S[a - 1], S[a]);
}
int sum = 0;
for (int i = 0; i < K; i++) {
sum += S[i];
}
int answer = sum;
for (int i = 0; i < M; i++) {
int a = stick[i].second;
swap(S[a - 1], S[a]);
int tmp = sum;
if (0 <= C[a - 1] && C[a - 1] < K) {
tmp -= (S[a] - S[a - 1]);
}
if (0 <= C[a] && C[a] < K) {
tmp -= (S[a - 1] - S[a]);
}
answer = min(answer, tmp);
swap(C[a - 1], C[a]);
}
printf("%d\n", answer);
return 0;
}
I2luY2x1ZGUgPGNzdGRpbz4KI2luY2x1ZGUgPHZlY3Rvcj4KI2luY2x1ZGUgPGFsZ29yaXRobT4KIAp1c2luZyBuYW1lc3BhY2Ugc3RkOwogCmludCBOLCBNLCBILCBLOwppbnQgU1sxMDAzXTsKaW50IENbMTAwM107CnZlY3RvcjxwYWlyPGludCwgaW50PiA+IHN0aWNrOwogCmludCBtYWluKCkgewogICAgc2NhbmYoIiVkICVkICVkICVkIiwgJk4sICZNLCAmSCwgJkspOwogICAgZm9yIChpbnQgaSA9IDA7IGkgPCBOOyBpKyspIHsKICAgICAgICBzY2FuZigiJWQiLCAmU1tpXSk7CiAgICAgICAgQ1tpXSA9IGk7CiAgICB9CiAgICBmb3IgKGludCBpID0gMDsgaSA8IE07IGkrKykgewogICAgICAgIGludCBhLCBiOwogICAgICAgIHNjYW5mKCIlZCAlZCIsICZhLCAmYik7CiAgICAgICAgc3RpY2suZW1wbGFjZV9iYWNrKGIsIGEpOwogICAgfQogCiAgICBzb3J0KHN0aWNrLmJlZ2luKCksIHN0aWNrLmVuZCgpKTsKIAogICAgZm9yIChpbnQgaSA9IE0gLSAxOyBpID49IDA7IGktLSkgewogICAgICAgIGludCBhID0gc3RpY2tbaV0uc2Vjb25kOwogICAgICAgIHN3YXAoU1thIC0gMV0sIFNbYV0pOwogICAgfQogCiAgICBpbnQgc3VtID0gMDsKICAgIGZvciAoaW50IGkgPSAwOyBpIDwgSzsgaSsrKSB7CiAgICAgICAgc3VtICs9IFNbaV07CiAgICB9CiAKICAgIGludCBhbnN3ZXIgPSBzdW07CiAKICAgIGZvciAoaW50IGkgPSAwOyBpIDwgTTsgaSsrKSB7CiAgICAgICAgaW50IGEgPSBzdGlja1tpXS5zZWNvbmQ7CiAgICAgICAgc3dhcChTW2EgLSAxXSwgU1thXSk7CiAgICAgICAgIAogICAgICAgIGludCB0bXAgPSBzdW07CiAgICAgICAgaWYgKDAgPD0gQ1thIC0gMV0gJiYgQ1thIC0gMV0gPCBLKSB7CiAgICAgICAgICAgIHRtcCAtPSAoU1thXSAtIFNbYSAtIDFdKTsKICAgICAgICB9CiAgICAgICAgaWYgKDAgPD0gQ1thXSAmJiBDW2FdIDwgSykgewogICAgICAgICAgICB0bXAgLT0gKFNbYSAtIDFdIC0gU1thXSk7CiAgICAgICAgfQogICAgICAgIGFuc3dlciA9IG1pbihhbnN3ZXIsIHRtcCk7CiAgICAgICAgc3dhcChDW2EgLSAxXSwgQ1thXSk7CiAgICB9CiAgICBwcmludGYoIiVkXG4iLCBhbnN3ZXIpOwogICAgcmV0dXJuIDA7Cn0=