Предмет: Информатика, автор: ubivator2

функция принимает в качестве параметра имя файла Name

FUNCTION F(NAME:STRING):INTEGER;


Hammerton: что ты хочешь сделать? этой функцией?
Hammerton: ну?

Ответы

Автор ответа: anyaigoshina
1
Программа будет работать при условии, что указанный файл с целыми числами существует!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.
Подробнее - на Znanija.com - 
Похожие вопросы
Предмет: Химия, автор: alanwater17
Предмет: Русский язык, автор: Аноним
Предмет: Обществознание, автор: BOSS09111