
Задан массив А(16), который содержит случайные целые числа в интервале [-33;17]. Найти мах элемент
и его место в массиве.

Ответы на вопрос

const
n=16;
var
a:array [1..n] of integer;
max,i,maxi:integer;
begin
max:=-34;
for i:=1 to n do
begin
a[i]:=random(51)-33;
write(a[i]:4);
if a[i]>max then
begin
max:=a[i];
maxi:=i;
end;
end;
writeln;
writeln('Max:', max, ' MaxI:',maxi);
end.



Для решения этой задачи можно использовать следующий алгоритм:
Инициализируйте переменные
max_element
иmax_index
со значениями первого элемента массиваA
и его индекса соответственно. Предположим, что первый элемент массива является максимальным.Пройдитесь по оставшимся элементам массива
A
, начиная с индекса 1:- Если текущий элемент больше значения
max_element
, обновитеmax_element
иmax_index
соответствующим образом.
- Если текущий элемент больше значения
После завершения цикла,
max_element
будет содержать максимальный элемент массиваA
, аmax_index
будет содержать его индекс.Выведите значение
max_element
иmax_index
.
Ниже приведена реализация данного алгоритма на языке Python:
pythonimport random
# Создание случайного массива
A = [random.randint(-33, 17) for _ in range(16)]
# Инициализация переменных
max_element = A[0]
max_index = 0
# Поиск максимального элемента и его индекса
for i in range(1, len(A)):
if A[i] > max_element:
max_element = A[i]
max_index = i
# Вывод результатов
print("Максимальный элемент:", max_element)
print("Индекс максимального элемента:", max_index)
После выполнения этого кода вы получите максимальный элемент массива A
и его индекс.


Похожие вопросы
Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili