Câu đố kì 2 - tuyển chọn HSG cấp trường

Dãy con
Cho dãy số nguyên dương {aN} = {a1, a2, …, aN} (N<=1000). Tìm dãy con nhiều phần tử nhất (không nhất thiết liên tiếp và có ít nhất 3 phần tử) của dãy đã cho sao cho bất kì 3 số hạng khác nhau của dãy con: ai, aj, ak đều có ai + aj + ak không lớn hơn tổng các số hạng còn lại của dãy con.
Dữ liệu vào: ‘DAYCON.INP’
Dòng 1: số N là số các phần tử của dãy {aN}
Dòng 2: gồm N số nguyên dương ai , i = 1..N, các ai không lớn hơn 106.
Dữ liệu ra: ‘DAYCON.OUT’
Một số nguyên duy nhất là số lượng phần tử của dãy con tìm được.
Ví dụ:
DAYCON.INP
9
6 5 22 9 8 10 7 11 4
DAYCON.OUT
8
1. Nộp bài 01 file BL.pas
2. Bạn nào giải tốt, đúng đắn sẽ được tuyển chọn trực tiếp vào đội tuyển học sinh giỏi tin học của trường dự thi cấp tỉnh.
3. Thời hạn cuối cùng nhận bài: 02.11.2008
4. Email nhận bài: thptcvtclbtoantin@gmail.com lehuukyquan@yaoo.com.vn hoặc thùng thư CLB Toán – Tin

Bài này tui biết nè. Bảo đảm luôn. Thử nhé:
1. Tạo file input đã
2. Chương trình con gồm có:
* Đọc dữ liệu Input
* Sắp xếp tăng cái đã
* Xử lí bằng cách giảm dần giá trị tổng
* Đưa ra kết quả
3. Tui đã hướng dẫn - đáng lẽ giải luôn nhưng "mần biếng mần" quá!
Chừng nào ông thầy cho tui ASMEDIT tui chơi tiếp - bằng không giận ông thầy 5 phút luôn...sp cho con đi mà, con không làm hại nhân thế đâu mà, con ngoan lắm mà, sp ui...

hEM hỈu zÌ hẾt

Hông hiểu là bình thường đó bạn! Hiểu cái này dễ điên lắm! Nói thiệt, tui theo ông thầy riết gần điên nè! Mà cái này hay lắm đó bạn..lớp 11 có thể làm được kì 1, nhưng kì 2 này hơi bị gay cấn vì bị ông thầy chơi trò thử sai mừ! Đánh giá cục bộ để giảm dần giá trị ban đầu - cũng na ná như bài cái ba lô thôi mà...
Mà thôi, để các bạn giải chứ tui đâu còn tuổi hs mà vô đội tuyển mắc công lắm! Ai giải được nhớ chia tui vài trái me trường chuyên nhé - vì đã hướng dẫn!
Ê! TheFireStar! Lần này anh làm vậy được không?

Hj hj, ngẫm nhứt cả đầu mà ko hiểu cũng như ko biết . Hùi sáng kiểm tra tin học 1 tiết làm ko được nên ác cảm zới Pascal gòi

Sau đây là bài giải kỳ II của em
const th1='d:\thanh.inp';
th2='d:\thanh.out';
var j,i,dem,n,s2:integer;
tam,s1:longint;
a:array[1..10000] of integer;
f1,f2:text;
(*----------------Nhap-----------------*)
procedure nhap;
begin
assign(f1,th1);
reset(f1);
begin
read(f1,n);
readln(f1);
s1:=0;
for i:=1 to n do
begin
read(f1,a[i]);
s1:=s1+a[i];
end;
end;
close(f1);
end;
(*---------------sap xep--------------------*)
procedure sapxep;
begin
for i:=1 to n do
for j:=i+1 to n+1 do
begin
if a[i] begin
a[i]:=a[i]+a[j];
a[j]:=a[i]-a[j];
a[i]:=a[i]-a[j];
end;
end;
assign(f2,th2);
rewrite(f2);
begin
i:=1;
begin
s2:=0;
repeat
begin
tam:=(a[i]+a[i+1]+a[i+2]);
if tam>(s1-tam) then
begin
s1:=s1-a[i];
i:=i+1;
end
else s2:=i;
end;
until (s2<>0) or (i=n);
end;
if s2=0 then write(f2,0) else
write(f2,n+1-s2);
end;
close(f2);
end;
begin
nhap;
sapxep;
end.

(*Nguyễn Phạm Hồng Thanh 10VL*)

Thanh code = Notepad à