Bài này em làm ra rồi :3
code:
const fi='docao.inp'; fo='docao.out';
var i,n,j,t,sum:integer;
A:array[1..1000] of longint;
s:string;
f:text;
procedure doc;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do
read(f,A[i]);
close(f);
end;
procedure xl...