Паскаль изи 100 баллов , просто правильно вставьте в задачу функцию , вместо массива
massiv = array [1..100] of integer; // создаём свой тип данных
var
max, position, n, i : integer; // объявляем
mass : massiv; // переменные
begin
write('Введите длину массива : ');readln(n); // просим пользователя ввести длину массива
for i:=1 to n do // пускаем цикл для заполнения массива
begin
write('Введите ',i,' элемент : ');readln(mass[i]); // просим пользователя заполнить массив
end;
max := mass[1];// задаём начальный максимальный элемент
position := 1; // и позицию максимального элемента
for i:=2 to n do // цикл для нахождения макс. элемента и его позиции
begin
if (mass[i] > max) then // если текущее значение больше чем max, то
begin
max := mass[i]; // max присваиваем это значение
position := i; // и заносим позицию этого элемента
end;
end;
writeln('Максимальный элемент : ', max, ' его позиция ', position); // выводим результат
readln; // чтобы программа не закрывалась
end.