Автор Павел Бондарев задал вопрос в разделе Другие языки и технологии
Как перевернуть массив? В Delphi 7. Чтобы первый индекс поменялся споследним а второй с пред последним и т.д. и получил лучший ответ
Ответ от Дмитрий Макаров[гуру]
100 рублей
Ответ от George Bykov[гуру]
Организуй цикл с двумя переменными I, J: одна - возрастает от 1 до N (размер масива) , другая убывает . В цикле через промежуточную переменную - меняй местами элементы массива. Потом новая итерация. Когда I и J "встретятся" - задача выполнена.
Организуй цикл с двумя переменными I, J: одна - возрастает от 1 до N (размер масива) , другая убывает . В цикле через промежуточную переменную - меняй местами элементы массива. Потом новая итерация. Когда I и J "встретятся" - задача выполнена.
Ответ от DverZapili[гуру]
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 div 2 do begin t := a [ i ]; a[ i ] := a[N-i+1]; a[N-i+1] := t; end;
Ответ от Евгений Ломега[гуру]
for i:= Low(a) to high(a) div 2 do begin tmp := a[ i ] ; a[ i ] := a[ high(a) + Low(a) - i ]; a[ high(a) + Low(a) - i ] := tmp; end;
for i:= Low(a) to high(a) div 2 do begin tmp := a[ i ] ; a[ i ] := a[ high(a) + Low(a) - i ]; a[ high(a) + Low(a) - i ] := tmp; end;
Ответ от Александр Николаевич[активный]
Нужно заплатить Александровичу
Нужно заплатить Александровичу
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как перевернуть массив? В Delphi 7. Чтобы первый индекс поменялся споследним а второй с пред последним и т.д.