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

[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]

1)

imin := 1;
for i := 2 to n do
 if abs(x[i]) < abs(x[imin]) then
  imin := i;

2)

i := 1;
while (i <= n) and (x[i] >= 0) do
  inc(i);
s := 0;
inc(i);
while (i <= n) do begin
  s := s + abs(x[i]);
  inc(i);
end;

[Psychologist]

klem4 Большое спасибо!
Только непонятно, нужно ли оставлять min:=abs(min); (то, что я писал раньше) и откуда взялся х...

[volvo]

откуда взялся х...

Вопроса "Куда делся А" не возникло при этом?

[klem4]

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

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

volvo )

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

[Psychologist]

Вот, что в итоге получилось:

Program MASSIV;
Var
   A     : array [1..10] of Real; {ob'yavlenie massiva}
   i, j  : Integer;               {schetchiki tcikla}
   min   : Integer;               {nomer min. el}
   minus : Integer;               {perviy otric. el}
   sum   : Integer;               {summa el. massiva}
Begin

   writeln ('vvedite 10 el. massiva');
   for i:=1 to 10 do begin
      readln (a[i]);
   end;

min:= 1;
for i:= 2 to 10 do
 if abs(A[i]) < abs(A[min]) then
  min:= i;

writeln ('nomer min. el', min);

i:= 1;
while (i<=10) and (A[i]>= 0) do
  inc(i);
sum:= 0;
inc(i);
while (i<= 10) do begin
  sum:= sum + abs(A[i]);
  inc(i);
end;

writeln ('summa el.', sum);

End.

Ставит указатель после "sum:= sum + abs(A[i]);" и пишет "Error 26: Type mismatch"
И ещё, что за функция такая - inc??

[klem4]

Правильно ругается, потомучто sum - переменная целого типа(Integer), а элементы массива - вещественного (real)

[Psychologist]

Ок, исправил.
Ошибок, не пишет, всё работает!
Ещё раз, большое спасибо!

Только вопрос остался открытым: Что такое inc?

[Client]

inc(i,5);

здесь значение i увеличится на 5

inc(i)

а здесь на 1

[Psychologist]

Client Пасиб!