Ответы на вопрос:
Var arr : array [1..10] of integer; //объявляем массив i, min, max : integer; //индекс, позиция минимального элемента, позиция максимального элемента begin min : = 1; max : = 1; for i : = 1 to 10 do arr[i] : = random(20) - 10; //заполняем массив for i : = 2 to 10 do //находим позицию максимального элемента if arr[i] > arr[max] then max : = i; for i : = 2 to 10 do //находим позицию минимального элемента if arr[i] < arr[min] then min : = i; writeln('максимальный элемент: ', arr[max], '; его позиция: ', max); writeln(' элемент: ', arr[min], '; его позиция: ', min); end.
Популярно: Информатика
-
SOSplizz15.08.2021 04:45
-
dodess14.12.2021 08:48
-
kodintsevmark17.10.2021 02:35
-
find133717.08.2021 08:34
-
tibeck12020.06.2023 17:37
-
alinaskinAS25.02.2020 13:03
-
ренат7619.01.2021 19:09
-
katyaaaasd17.06.2020 00:07
-
sharopoamir0511.10.2020 17:58
-
Kastrulya120.05.2021 03:19