.com

"var i,n,m,j:integer; u: array[-1000..1000] of integer; f1,f2: text;procedure input;beginassign(f1,'f1.txt');reset(f1);readln(f1,n);for i:=1 to n do read(f1,u[i]);close(f1);end;procedure output;beginassign(f2,'f2.txt');rewrite(f2);For i:=1 to n-1..."  04-04-17 09:18 AM