Ответы на вопрос:
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',20); a.println; var imin: =a.indexmin; writeln('номер минимального элемента- ',imin+1); writeln('элементов, равных минимальному- ', a.where(x-> x=a[imin]).count-1) end. пример n= 50 -13 17 18 10 -6 13 16 -12 -15 10 18 -7 -20 18 14 14 11 20 4 4 -10 6 -20 11 -2 4 7 -3 -20 -18 -6 11 -15 -8 16 11 -13 3 -5 2 6 7 -10 11 8 19 1 -11 16 -10 номер минимального элемента- 13 элементов, равных минимальному- 2
Популярно: Информатика
-
tanyapishulovaoyc3lb23.01.2023 07:36
-
egorowasnezhana15.12.2021 15:34
-
Эверяшка01.11.2020 22:11
-
arcadig0108.02.2020 02:22
-
dyadyan21.08.2022 21:13
-
kostrigina200101.07.2020 10:05
-
Pomawkal22.09.2020 14:17
-
ahmed005116.07.2022 00:47
-
mikerinavera15.11.2022 04:18
-
НикитаГоровой18.08.2022 02:04