Здравствуйте!
Очень нужна ваша помощь, ни как не доходит решение задачки одной...
В одномерном массиве, состоящем из 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.
1)
imin := 1;
for i := 2 to n do
if abs(x[i]) < abs(x[imin]) then
imin := i;
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;
klem4 Большое спасибо!
Только непонятно, нужно ли оставлять min:=abs(min); (то, что я писал раньше) и откуда взялся х...
x[i] налогично твоему a[i]. X - это массив.
по поводу первого вопроса - вообще не очень ясно что ты хотел сделать. Хранить нужно только номер минимального (в данном случае по модулю) элемента. Изначально мы берем за минимальный элемент - элемент под номером 1. Затем в цикле смотрим, если очередной элемент с номером i по модулю менньше чем последний найденный минимум (abs(x[imin])), то принимаем его номер за новый минимум imin := i;
volvo )
Вот, что в итоге получилось:
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 - переменная целого типа(Integer), а элементы массива - вещественного (real)
Ок, исправил.
Ошибок, не пишет, всё работает!
Ещё раз, большое спасибо!
Только вопрос остался открытым: Что такое inc?
inc(i,5);
inc(i)
Client Пасиб!