одномерный массив в delphi

[d3[Z.oRg]]

Дан массив A(n). Изменить порядок следования элементов на обратный между первым и последним отрицательным. Учесть возможность того, что отрицательных элементов в массиве может не быть.

[mihali4]

Где ваши наработки? Что не получается?
Приводите ваш код, будем помогать доводить его до ума...

[d3[Z.oRg]]

впринципе вся сложность в опеделении первого и последнего отрицательного элементов.
вот поискал в инете:
i:=1; Flag:=FALSE;
While (i<=N) and not Flag do
If A[i]<0
then begin
Flag:=TRUE; k:=i
end
else i:=i+1;
это более менее похоже на определение первого отрицательного.
сам вывод между ними в обратном порядке похоже просто через downto осуществляется

[mihali4]

вот поискал в инете

Неужели задача так сложна для понимания?
Как ищется первый отрицательный элемент на бумажке? Начинаем просмотр с первого элемента и как только натыкаемся на отрицательный - записываем его или его номер.
Теперь продолжаем просмотр до самого конца. Автоматически у нас в нашей переменной, где мы записываем позиции отрицательных элементов, окажется теперь позиция последнего отрицательного элемента. Верно?
Теперь о коде.
Можно написать так:

var perv,posl,i:integer;
begin
//обнуляем переменные для первого и последнего элемента
perv:=-1;
//организуем цикл по всем элементам массива А
for i:=0 to Length(A) do
begin
if A[i]<0 then
begin
//если первый элемент еще не был найден (perv=-1), то присваиваем ему позицию
if perv=-1 then
begin
perv:=i;
//на случай, если всего один отрицательный элемент, то
posl:=perv;
end else
//иначе позицию присваиваем переменной posl последнего отрицательного эл-та 
posl:=i;
end;
end;

В результате в PERV - позиция первого найденного отрицательного элемента, а в POSL - последнего.
З.Ы. Немного подправил, ведь речь идет о массиве, а не о строке...

с пониманием как раз таки все вроде хорошо, только реализация хромает, опыта-то маловато

В этом (приобретении опыта) всегда и с удовольствием поможем...

[d3[Z.oRg]]

да нет, с пониманием как раз таки все вроде хорошо, только реализация хромает, опыта-то маловато

В результате в POSL - позиция первого найденного отрицательного элемента, а в POSL - последнего.

ну это как я понимаю опечатка просто, вместо первого POSL должен быть PERV. Вот такой вот каламбур.
В любом случае огромное спасибо за оказанную помощь !
Работает

[Zevs Olimpic]

Немогу разобраться с одномерными масивами...
1)Подсчитать сумму всех элементов в одномерном массиве длиной N.
2)Каждый элемент массива размерностью N умножить на его порядковый номер в массиве.
3)Задача. В одномерном массиве размера N определить индексы элементов кратных 4 и 6.
4)Задача. В одномерном массиве размера N определить среднее арифметическое элементов, принадлежащих промежутку [-3; 5].
5)Заменить все элементы одномерного массива размерностью N по формуле аи = аи + sin aи.
6)Получить сумму тех членов одномерного массива размерностью N, удовлетворяющих условию аи> i3.
7)В одномерном массиве размерностью N все положительные элементы умножить на 10, а все отрицательные элементы заменить на 0.
8)Задача. В одномерном массиве размера N определить среднее геометрическое четных элементов.
9)Задача. В одномерном массиве размера N определить среднее арифметическое положительных элементов.
10)В одномерном массиве размерностью N найти индекс первого отрицательного элемента
11)В одномерном массиве размерностью N найти индекс первого положительного элемента
12)В одномерном массиве размерностью N подсчитать количество положительных элементов, отрицательных элементов и нулей
ИЛИ ОБЯСНИТЕ КАК ИХ ДЕЛАТЬ (ПРИНЦИП)
Зарание спасибо

[Alex11223]

Зачем ты пишешь сообщения в какие-то древние темы 2008г?)



А принцип есть в учебнике или гугле)
Чтобы "пройти" весь массив обычно используется цикл for (если массив двухмерный и т.д., то вложенный цикл т.е. один цикл в другом). Во время цикла что-то делаем или не делаем с каждым элементом, сравниваем их и сохраняем или выводим куда нужно, то что ищем: индексы, значения и т.д..
Например, 3 как-то так можно:

for i:=1 to n do
   if (a[i] mod 4 = 0) and (a[i] mod 6 = 0) then
      writeln('Элемент массива а с индексом ', i, ' кратен 4 и 6');

Там, где надо закончить после нахождения первого подходящего элемента и т.д. (10, 11) можно использовать break для завершения цикла (тоже учебник или гугл).

[Mad_Cat]

Немогу разобраться с одномерными масивами...

стучи) контакты в подписи) помогу за денежку)