Дан файл f компоненты которого являются действительными числами, найти сумму наибольшего...

Question

Дан файл f компоненты которого являются действительными числами, найти сумму наибольшего и наименьшего из значений компонент. паскаль

Answer 1

Var
  f: file of real;
  a, amin, amax: real;

begin
  Assign(f, 'input.dat');
  Reset(f);
  amin := 1e-20;
  amax := 1e20;
  while not Eof(f) do
  begin
    read(f, a);
    if amin > a then amin := a;
    if amax < a then amax := a
  end;
  Close(f);
  writeln('Сумма минимального и максимального элементов равна ', amin + amax)
end.