Question

определить номер наибольшего элемента массива A и наибольшего значения среди модулей элементов массива A. Составить программу в паскале. Массив одномерный и значений ну скажем пусть будет пять

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Номер максимального элемента', a.IndexMax + 1);

 Println('Номер максимального по модулю элемента',

     a.IndexOf(a.MaxBy(x -> Abs(x))) + 1)

end.

Answer 2

Для определения номера наибольшего элемента массива и наибольшего значения среди модулей элементов массива в Pascal, следуйте приведенному ниже коду:

pascalCopy code
program MaxElementAndModMaxValue;

const
  N = 5; // Размер массива

var
  A: array[1..N] of Integer; // Одномерный массив
  i, maxIndex, maxModValue: Integer;

begin
  // Ввод элементов массива
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
    readln(A[i]);

  // Находим номер наибольшего элемента массива
  maxIndex := 1;
  for i := 2 to N do
  begin
    if A[i] > A[maxIndex] then
      maxIndex := i;
  end;

  // Находим наибольшее значение среди модулей элементов массива
  maxModValue := Abs(A[1]);
  for i := 2 to N do
  begin
    if Abs(A[i]) > maxModValue then
      maxModValue := Abs(A[i]);
  end;

  // Выводим результаты
  writeln('Номер наибольшего элемента массива: ', maxIndex);
  writeln('Наибольшее значение модуля элементов массива: ', maxModValue);
end.

Этот код позволит вам ввести пять элементов массива, а затем определит номер наибольшего элемента массива и наибольшее значение среди модулей элементов. Обратите внимание, что номер элемента начинается с 1. Вы можете изменить значение константы N, чтобы увеличить размер массива, если вам нужно обработать больше элементов.