Курсовая работа: Основы программирования и алгоритмизации

f: file of integer;

i: integer;

k,j: byte;

a: array [1..255] of integer;

begin

assign (f,'zadanie5.txt');

rewrite (f);

writeln ('Введите количество вводимых чисел: ');

readln (k);

for j:=1 to k do

begin

write ('Введите ',j,' число: ');

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 ('Значения из файла:');