Очень нужна ваша помощь, ни как не доходит решение задачки одной...
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Номер минимального по модулю элемента массива; {именно номер, а не значение}
2. Сумму модулей элементов массива, расположенных после первого отрицательного элемента.
Я тут заготовочку сделал. Помогите, плз...
Program MASSIV;
Var
A : array [1..10] of Real; {объявление массива}
i, j : Integer; {счётчики цикла}
min : Integer; {номер минимального по модулю элемента}
minus : Integer; {первй отрицательный элемент}
sum : Integer; {сумма элементов массива}
Begin
writeln ('vvedite 10 el. massiva');
for i:=1 to 10 do begin
readln (a[i]);
end;
min:=abs(min);
End.