[Alegun]

Сообщение от GoryachevEugeneS

Дан массив. Скопировать все его элементы в другой массив такого же размера:
а) в том же порядке расположения элементов;
б) в обратном порядке расположения элементов...

а)

Код:

for i := Low(massiv) to High(massiv) do massiv1[i]:= massiv[i];

б)

Код:

for i := Low(massiv) to High(massiv) do massiv1[High(massiv)-i]:= massiv[i];