Перевернуть одномерный массив

[UlyanKa]

Пожалуйста помогите решить две похожие задачи, срочно нужно решение... Можно сказать вопрос жизни и смерти:

[**deleted**]
*
2) Для одномерного массива с действительными элементами изменить порядок следования элементов в массиве на обратный и вывести каждый элемент преобразованного массива в отдельной строке.
Пожалуйста :/

[Naeel Maqsudov]

вопрос жизни и смерти

Придется значит Вам умереть.....
... шутка

Задачи никакие не похожие.
Первую удалил. (См. правила раздела) Поиск среднего, максимума и т.п. здесь решен уже десятки раз. Ищите.

2)

Код: Выделить всё

//"переворачивание" массива
for i:=1 to N div 2 do begin
  T:=A[i]; A[i]:=A[N-i+1]; A[N-i+1]:=T;
end;

//вывод
for i:=1 to N do writeln('A[',i,']=',A[i]); 

[BHy4ok]

На обратный т.е. перевернуть массив задом наперед ?

Код: Выделить всё

for i:=n downto 1 do
  writeln(a[n]);

[UlyanKa]

Придется значит Вам умереть.....
... шутка

Задачи никакие не похожие.
Первую удалил. (См. правила раздела) Поиск среднего, максимума и т.п. здесь решен уже десятки раз. Ищите.

2)

Код: Выделить всё

//"переворачивание" массива
for i:=1 to N div 2 do begin
  T:=A[i]; A[i]:=A[N-i+1]; A[N-i+1]:=T;
end;

//вывод
for i:=1 to N do writeln('A[',i,']=',A[i]); 

Я только недавно зарегилась и не знаю, что такую задачу(1) решали, инета дома нету, не могу долго сидеть и искать, поэтому прошу помочь... Я никогда не работала в Delphi и не смогу написать полный код... Эээ... Можно подробней

[Naeel Maqsudov]

Задачу 1 в отдельную тему пожалуйста.