Вычислить максимальный по модулю элемент. (Турбо паскаль)

[erte]

В одномерном массиве, состоящем из n вещественных элементов, вычислить максимальный по модулю элемент.

[Sciv]

Последовательно сравнить модули всех элементов массива и найти максимальный

[Serge_Bliznykov]

позволю себе ответ Sciv проиллюстрировать небольшим фрагментов кода на Паскале:

MaxModul := abs( A[1] ); {изначально полагаем модуль первого элемента массива максимальным}

{перебираем оставшиеся элементы массива}
for i:=2 to n do
  if abs( A[i] )> MaxModul then MaxModul :=  abs( A[i] );

вот, по сути, и вся программа!

[eoln]

Серж, поправлю вас немного. MaxModul будет равен модулю максимального по модулю элемента. Т.е в массиве -9 5 7 получим 9, а не -9. Чуть изменив, получим именно максимальный по модулю

MaxModul := 1; {изначально полагаем модуль первого элемента массива максимальным}

{перебираем оставшиеся элементы массива}
for i:=2 to n do
  if abs( A[i] )> abs( A[MaxModul] ) then MaxModul :=  i;
write(A[MaxModul])

[Serge_Bliznykov]

eoln, Вы правы, согласен.

[erte]

Спасибо за помощь, но мне надо полностью написать программу, так мне будет легче понять, я ведь новичок в программировании. =)

[Sciv]

Сообщение от erte

Спасибо за помощь, но мне надо полностью написать программу, так мне будет легче понять, я ведь новичок в программировании. =)

Так Вам ее и написали практически полностью, осталось только операторы ввода-вывода да begin-end написать. Погуглите хотя бы, это элементарная вещь, даже начинающему под силу.