Ответы на вопрос:
Const n = 10; var i: byte; min: real; imin: integer; a: array[1..n] of real; begin writeln('введите числа'); for i : = 1 to n do read(a[i]); min : = a[1]; for i : = 2 to n do if min > a[i] then min : = a[i]; for i : = 1 to n do if a[i] = min then imin : = i; writeln('минимальное значение = ', min); writeln('элемент = ', imin); end.
Популярно: Информатика
-
Lomberts22.12.2020 04:53
-
AgamanDi08.07.2020 12:24
-
марго100225.05.2021 20:39
-
erisoeun09.01.2020 11:10
-
Берегиня06.05.2021 20:29
-
xomis120.08.2022 07:12
-
Inna2103200207.12.2022 19:55
-
filip19858513.04.2020 14:27
-
Kira162614.11.2020 08:35
-
mariyaarif27.03.2021 21:26