Задание 1 Дан список чисел. Выведите значение наибольшего элемента в списке, а затем индекс этого элемента в списке. Если
наибольших элементов несколько, выведите индекс первого
из них.
Пример:
1 2 3 2 1
Результат:
3 2

begin

 var n := ReadInteger('Укажите длину списка:');

 var L := ReadSeqInteger('Введите данные:', n).ToList;

 var im := L.IndexMax;

 Print(L[im], im)

end.

Объяснение:

Решение на PascalABС.NET, поскольку язык программирования так и не был указан.

--- Python 3.8.3 ---

RawList = [int(i) for i in input().split()]

maxItem = max(RawList)

maxIndex = RawList.index(maxItem)

print(maxItem, maxIndex)

Объяснение: