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

Предыдущий
вопрос Следующий
вопрос

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

program MaxValue;
const
N = 5; // Размер массива
var
A: array[1..N] of integer;
i, maxIndex, maxAbsValue: integer;
begin
// Ввод элементов массива
writeln('Введите элементы массива:');
for i := 1 to N do
readln(A[i]);
// Находим номер наибольшего элемента массива A
maxIndex := 1;
for i := 2 to N do
if A[i] > A[maxIndex] then
maxIndex := i;
// Находим наибольшее значение среди модулей элементов массива A
maxAbsValue := abs(A[1]);
for i := 2 to N do
if abs(A[i]) > maxAbsValue then
maxAbsValue := abs(A[i]);
// Вывод результата
writeln('Номер наибольшего элемента массива A: ', maxIndex);
writeln('Наибольшее значение среди модулей элементов массива A: ', maxAbsValue);
end.

Программа сначала вводит элементы массива, затем находит номер наибольшего элемента и наибольшее значение среди модулей элементов. Выводит результат на экран.