Программа будет работать при условии, что указанный файл с целыми числами существует!Function P(name:string):integer;var f:file of integer;a,min:integer;beginAssign(f, name);Reset(f);Read(f,min);while not eof(f) do begin read(f,a); if abs(a)<abs(min) then min:=a; end;Close(f);P:=min;end;var s:string;beginwriteln('Введите имя файла:');readln(s);writeln('min = ',P(s));end. Подробнее - на -
Подробнее - на -