Задача: Программирование циклических процессов., Вычичисления в массиве. Опции

[Psychologist]

Здравствуйте!
Очень нужна ваша помощь, ни как не доходит решение задачки одной...
В одномерном массиве, состоящем из 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.

[klem4]

x[i] налогично твоему a[i]. X - это массив.

по поводу первого вопроса - вообще не очень ясно что ты хотел сделать. Хранить нужно только номер минимального (в данном случае по модулю) элемента. Изначально мы берем за минимальный элемент - элемент под номером 1. Затем в цикле смотрим, если очередной элемент с номером i по модулю менньше чем последний найденный минимум (abs(x[imin])), то принимаем его номер за новый минимум imin := i;

volvo )

Сообщение отредактировано: klem4 - 2.12.2007 17:19