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

Ответы 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years