
Вопрос задан 25.10.2023 в 03:05.
Предмет Информатика.
Спрашивает Кротюк Віталій.
Напишите программу нахождение третьего по величине элемента массива.


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

Отвечает Тажиева Аружан.
Ответ:
program Pascal;
const n=10;
Var i,max,max2,max3: Integer;
m: array[1..10] of integer;
Begin
m[1]:=random(10);
max:=m[1];
max2:=m[1];
max3:=m[1];
For i:=2 to n do
begin
m[i]:=random(100);
write(m[i]:4);
end;
For i:=1 to n do
begin
if (m[i]>max) then
begin
max3:=max2;
max2:=max;
max:=m[i];
end
else if (m[i]>max2) then
begin
max3:=max2;
max2:=m[i];
end
else if (m[i]>max3) then
begin
max3:=m[i];
end;
end;
writeln();
writeln(max3);
End.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на Python для нахождения третьего по величине элемента в массиве:
pythondef find_third_largest(arr):
# Проверяем, что в массиве есть как минимум три элемента
if len(arr) < 3:
return "В массиве должно быть как минимум три элемента"
# Убираем дубликаты и сортируем массив по убыванию
unique_sorted_arr = sorted(set(arr), reverse=True)
# Проверяем, что у нас есть хотя бы три уникальных элемента
if len(unique_sorted_arr) < 3:
return "В массиве должно быть как минимум три уникальных элемента"
# Возвращаем третий по величине элемент
return unique_sorted_arr[2]
# Пример использования
arr = [12, 45, 2, 41, 31, 10, 8, 6, 45]
result = find_third_largest(arr)
print("Третий по величине элемент в массиве:", result)
Эта программа сначала удаляет дубликаты из массива, затем сортирует его по убыванию и возвращает третий уникальный элемент.


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