Даны два файла: input.txt и output.txt. В input.txt дана последовательность чисел:...

Question

Даны два файла: input.txt и output.txt. В input.txt дана последовательность чисел: 1,6,11,16,21. В Output.txt отобразить размах ряда (т.е разность между наибольшим и наименьшим числом). Pascal

Answer 1

A,b : byte; 
F : file of byte; 
begin 
assign(F,'input.txt'); reset(F); 
read(F,a); 
close(F); 

assign(F,'output.txt'); rewrite(F); 
write(F,b); 
close(F); 
end.