Как определить элемент массива, у которого max модуль целой части

[максим27]

дан массив вещественных чисел а1,а2,...,аn.Определить элемент массива, у которого max модуль целой части.

[Mad_Cat]

m=1;
for i:=2 to n do
if abs(trunc(a[m]))<abs(trunc(a[i])) then m:=i;
writeln(m);

[Bugrimov]

На каком языке программирования нужно сделать???

[максим27]

нужно написать на языке vba

[Abstraction]

Цикл по всем элементам массива. Перед циклом завести две переменных - "индекс" (инициализировать нулём) и "максимум" (инициализировать модулем нулевого элемента). В цикле сравнивать модуль текущего элемента с "максимумом"; если первый больше - записать его в "максимум", а текущий индекс - в "индекс". На выходе из цикла "индекс" и "максимум" будут содержать индекс максимального по модулю элемента и его величину по модулю, соответственно.