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

123

257

Посмотреть ответы 2

Ответы на вопрос:

DozZzuM

Информатика

4,5(32 оценок)

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.