Не работает программа. исправьте код.: реверс массива неизвестного размера из файла с стека код: var t1,t2: text; k,n: integer; procedure chisla; var a: integer; begin read(t1,a); inc(k); if k< =n then begin chisla; write(t2,' ',a); end else writeln(t2,'содержание файла в обратном порядке: '); end; begin assign(t1,'input.txt'); reset(t1); read(t1,n); assign(t2,'out.txt'); rewrite(t2); k: =0; chisla; close(t1); close(t2); end.

shittt6655    1   07.04.2019 09:16    5