Люди, , найти значения минимального элемента одномерного целочисленного массива, сформированного пользователем, и его индекс. внимание, предусмотреть ситуацию нескольких элементов с минимальным значением. в этом случае вывести на экран все индексы. паскаль.
203
295
Ответы на вопрос:
varmas: array[1..10] of integer; i,min: integer; beginmin: =maxint; for i: =1 to 10 dobeginreadln (mas[i]); if (mas[i]< min) then min: =mas[i]; end; writeln ('минимальный элемент массива =',min); for i: =1 to 10 doif (mas[i]=min) then writeln ('индекс минимального элемента: ',i); end.
Популярно: Информатика
-
311242aaa03.05.2022 20:24
-
Spartak193522.01.2023 17:47
-
Horse333310.11.2020 14:26
-
Ромчик041223.04.2023 14:11
-
Nickhoffmanru11.05.2021 03:49
-
polina7snoy16.01.2020 02:03
-
Лизуша111авм06.09.2020 12:25
-
Subaruworld03.07.2022 17:22
-
Yorfound21.01.2020 09:27
-
DementоR06.11.2021 14:05