Ответы на вопрос:
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.
Популярно: Информатика
-
анастасия0602112.03.2022 10:57
-
kravcukpolap08qwd20.08.2021 21:56
-
lap8592801.03.2023 16:15
-
8888щоолзлтлжд18.10.2020 15:07
-
неможетбыть06.10.2022 13:02
-
yanaolok15.02.2020 17:37
-
Asoooollll05.06.2021 08:21
-
lanadanelianlana03.02.2020 20:43
-
vanykazakoff10.04.2020 10:26
-
elyakomarova012.10.2022 20:22