Функция принимает в качестве параметра имя файла name function f(name: string): integer;
159
494
Ответы на вопрос:
Программа будет работать при условии, что указанный файл с целыми числами существует! 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. подробнее - на -
Популярно: Информатика
-
vika141005701.03.2020 17:10
-
NikoYuqa122.07.2021 20:00
-
andreevaangel57897611.03.2022 21:56
-
Monika95012.10.2022 20:21
-
gnikitav200722.10.2021 20:01
-
abdrazakovernat22.04.2023 03:44
-
ania4709.02.2021 15:07
-
Mary345604.08.2020 22:04
-
ArthurMyChemov30.06.2023 13:09
-
Милкович1113.02.2020 05:34