Ngày tải lên :
07/09/2012, 10:30
... :integer;
Begin
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
Program chia_keo;
uses crt;
const max = 100;
fi ='chiakeo.inp';
fo ='chiakeo.out';
var a,s : array[1 max]of integer;
d1,d2,tr ... vào trong file "chiakeo.inp" có dạng :
- Dòng đầu tiên là số N(N<=100);
- Dòng thứ hai là N số A
i
(i=1, 2, , N; A
i
<=100).
Kết quả ra file "chiakeo.out" có dạng:
-...