#include <float.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

// 内部定数
#define D_ON			1										// 汎用フラグ - ON
#define D_OFF			0										// 汎用フラグ - OFF
#define D_ITM_MAX		15										// 最大商品数
#define D_PTN_MAX		40000									// 最大パターン数

// 内部変数
static FILE *szpFpI;											// 入力
static int si1Itm[D_ITM_MAX];									// 商品
static int siICnt;												// 商品数
static int si1Pay[D_PTN_MAX];									// 支払い額合計[商品パターン]
static int siMin;												// 最小金額

// 内部変数 - テスト用
#ifdef D_TEST
	static int siRes;
	static FILE *szpFpA;
#endif

// 最小金額 - セット
int
fSetMin(
	int piSCnt					// <I> 選択数
	, int *pipSel				// <I> 選択済みの商品
	, int piPtn					// <I> 商品パターン
	, int piBSum				// <I> 金額合計 - 定価
	, int piPSum				// <I> 金額合計 - 支払い額
)
{
	int i;

	// 選択終了
	if (piSCnt == siICnt) {

		// 最小金額 - 更新
		if (siMin > piPSum) {
			siMin = piPSum;
		}

		return 0;
	}

	// 支払い額合計 - チェック
	if (si1Pay[piPtn] > 0) {
		if (si1Pay[piPtn] <= piPSum) {
			return 0;
		}
	}
	si1Pay[piPtn] = piPSum;

	// 商品選択
	for (i = 0; i < siICnt; i++) {

		// 選択済みチェック
		if (pipSel[i] != D_OFF) {
			continue;
		}
		pipSel[i] = D_ON;

		// 支払い額
		int liPay = si1Itm[i] - piBSum % 1000;
		if (liPay < 0) {
			liPay = 0;
		}

		// 下位へ
		fSetMin(piSCnt + 1, pipSel, piPtn + (1 << i), piBSum + si1Itm[i], piPSum + liPay);

		// 選択キャンセル
		pipSel[i] = D_OFF;
	}

	return 0;
}

// 実行メイン
int
fMain(
	int piTNo					// <I> テスト番号 1～
)
{
	int i;
	char lc1Buf[1024], lc1Out[1024];

	// データ - 初期化
	memset(si1Pay, 0, sizeof(si1Pay));							// 支払い額合計[商品パターン]
	siMin = INT_MAX;											// 最小金額

	// 入力 - セット
#ifdef D_TEST
	sprintf(lc1Buf, ".\\Test\\T%d.txt", piTNo);
	szpFpI = fopen(lc1Buf, "r");
	sprintf(lc1Buf, ".\\Test\\A%d.txt", piTNo);
	szpFpA = fopen(lc1Buf, "r");
	siRes = 0;
#else
	szpFpI = stdin;
#endif

	// 商品数 - 取得
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &siICnt);

	// 商品 - 取得
	for (i = 0; i < siICnt; i++) {
		fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
		sscanf(lc1Buf, "%d", &si1Itm[i]);
	}

	// 最小金額 - セット
	int li1Sel[D_ITM_MAX];
	memset(li1Sel, D_OFF, sizeof(li1Sel));
	fSetMin(0, li1Sel, 0, 0, 0);


	// 結果 - セット
	sprintf(lc1Out, "%d\n", siMin);

	// 結果 - 表示
#ifdef D_TEST
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, lc1Out)) {
		siRes = -1;
	}
#else
	printf("%s", lc1Out);
#endif

	// 残データ有無
#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, "")) {
		siRes = -1;
	}
#endif

	// テストファイルクローズ
#ifdef D_TEST
	fclose(szpFpI);
	fclose(szpFpA);
#endif

	// テスト結果
#ifdef D_TEST
	if (siRes == 0) {
		printf("OK %d\n", piTNo);
	}
	else {
		printf("NG %d\n", piTNo);
	}
#endif

	return 0;
}

int
main()
{

#ifdef D_TEST
	int i;
	for (i = D_TEST_SNO; i <= D_TEST_ENO; i++) {
		fMain(i);
	}
#else
	fMain(0);
#endif

	return 0;
}