Переделать этот код под текстовый файл с числовыми данными var i,min,max: integer; a: array[1..70]of integer; begin for i: =1 to 70 do begin a[i]: =random(100); write(a[i],' '); if i=1 then min: =a[i] else if a[i] if a[i]> max then max: =a[i]; end; writeln; writeln('ответ: ',max-min); end.

Программа:
var
  min, max, a: integer;

begin
  assign(input, 'input.txt'); reset(input);
  read(a);
  max := a;
  min := a;
  while not(eof(input)) do
  begin
    read(a);
    if a > max then max := a;
    if a < min then min := a;
  end;
  writeln('ответ: ', max - min);
end.
Описание программы:
Программа считывает все числа из входного файла "input.txt" и выводит максимальную разность двух чисел