файл

[ольгару]

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

[p51x]

фриланс ниже

[Mad_Cat]

read(f,max);
min:=max;
while not eof(f) do begin
read(f,a);
if a>max then max:=a;
if a<min then min:=a;
end;
write(min+max);