Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
var A:Array[1..10] of integer; T: Text; I: Integer; S: string; begin ... Assign(T, 'Texto.txt'); Rewrite(T); for I:=1 to 10 do begin Str(A[i], S); Writeln(T, S); end; { for } Close(T); end.