Получить массив с обратным расположением элементов

@dyc9 · Регистрация: 15.03.2013

Author24 — интернет-сервис помощи студентам

подскажите программу
Задан массив на 15 элементов. Получить массив с обратным расположением элементов.
[DELPHI]

@Mawrat · 14.04.2013, 20:01

Принцип такой:

Delphi

const
  M = 15;
var
  a, b : array[1..M] of Integer;
  i : Integer;
begin
...
  for i := 1 to M do
    b[i] := a[M - i + 1];
...
end;

В массиве b элементы окажутся в обратном порядке по отношению к массиву a.

Добавлено через 2 минуты
Или так:

Delphi

const
  M = 15;
var
  a, b : array[1..M] of Integer;
  i, j : Integer;
begin
...
  j := M;
  for i := 1 to M do begin
    b[i] := a[j];
    Dec(j); //Это тоже самое, что и: j := j - 1;
  end;
...
end;

@dyc9 3 / 3 / 0 Регистрация: 15.03.2013 Сообщений: 79
		1
	Получить массив с обратным расположением элементов 14.04.2013, 18:55. Показов 868. Ответов 1 Метки нет (Все метки) подскажите программу Задан массив на 15 элементов. Получить массив с обратным расположением элементов. [DELPHI] 0

	14.04.2013, 20:01