Question

паскаль изи 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.

Answer 1

Ответ:

Одним из основных направлений использования компьютеров является накопление и обработка данных - различных таблиц, справочников, словарей и другой информации. Для представления такой информации в программе удобно использовать массивы. Как правило, обработка таких данных осуществляется по одному и тому же закону, для чего удобно использовать циклические алгоритмы.