Основы программирования и алгоритмизации (стр. 2 из 2)

read (i);

write (f,i);

end;

reset (f);

writeln ('Значения из созданного файла:');

for j:=1 to k do

begin

read (f,i);

write (i,' ');

a[j]:=i;

end;

rewrite (f);

for j:=k downto 1 do

write (f,a[j]);

writeln;

reset (f);

writeln ('Значения из файла:');

for j:=1 to k do

begin

read (f,a[j]);

write (a[j],' ');

end;

close (f);

writeln;

end.

Решение: