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

Ответ:

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

Answer 2

Похоже, вы хотите вставить функцию в код на Pascal, чтобы решить задачу поиска максимального элемента в массиве. Вот ваш код с добавленной функцией для нахождения максимального элемента и его позиции:

pascalCopy code
program MaxElement;

type
  Massiv = array [1..100] of integer; // создаем свой тип данных

var
  max, position, n, i: integer;
  mass: Massiv; // переменные

function FindMaxPosition(arr: Massiv; size: integer; var pos: integer): integer;
var
  i, maxVal: integer;
begin
  maxVal := arr[1];
  pos := 1;
  
  for i := 2 to size do
  begin
    if arr[i] > maxVal then
    begin
      maxVal := arr[i];
      pos := i;
    end;
  end;
  
  FindMaxPosition := maxVal;
end;

begin
  write('Введите длину массива : ');
  readln(n); // просим пользователя ввести длину массива
  
  for i := 1 to n do // пускаем цикл для заполнения массива
  begin
    write('Введите ', i, ' элемент : ');
    readln(mass[i]); // просим пользователя заполнить массив
  end;
  
  max := FindMaxPosition(mass, n, position);
  
  writeln('Максимальный элемент : ', max, ' его позиция ', position); // выводим результат
  readln; // чтобы программа не закрывалась
end.

Здесь функция FindMaxPosition принимает массив, его размер и переменную для позиции максимального элемента. Она возвращает значение максимального элемента и одновременно изменяет переменную position для записи позиции максимального элемента.