565п

20.05.2021 03:19 •  Информатика

Паскаль изи правильно вставьте в задачу функцию , вместо массива
massiv = array [1..100] of integer; // создаём свой тип данных

var
max, position, n, i : integer; // объявляем
mass : massiv; // переменные
begin
write('Введите длину массива пользователя ввести длину массива

for i:=1 to n do // пускаем цикл для заполнения массива
begin
write('Введите ',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.