Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите переделать этот код под текстовый файл с числовыми данными
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" и выводит максимальную разность двух чисел