Ответы на вопрос:
// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('укажите количество чисел: '); var a: =readarrreal('вводите: ',n); var m: =a.min; writeln(a.where(x-> x=m)) end. пример укажите количество чисел: 6 вводите: -3 2.4 -7 0 -7 3 [-7,-7]
Популярно: Информатика
-
lemarakurtazhiv20.02.2021 01:50
-
димка18421.06.2020 23:22
-
помогите513229.08.2021 19:49
-
San4ic06.06.2022 10:25
-
SuperMan8725.06.2022 17:19
-
Владимир32819.04.2020 12:33
-
nagornaykisa21.03.2020 10:21
-
myti766709.02.2023 23:20
-
Tanya7282830.10.2022 08:05
-
Tolya56721.09.2021 00:43