[GoryachevEugeneS]

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

procedure TForm4.Button25Click(Sender: TObject);
var k:integer;
begin
k:=strtoInt (InputBox('Размер массива', 'Введите размер массива','0'));
SetLength(massiv,k);
SetLength(massiv1,k); //Установка размера массива
end;

procedure TForm4.Button26Click(Sender: TObject);
var i:integer;
begin
for i:=0 to High(massiv) do
massiv[i]:=strtoint(InputBox('Элементы массива', 'Введите '+inttostr(i)+
' элемент массива','0')); //Ввод элементов массива

end;

Дальше...

Подскажите, намекните, помогите Спасибо!

[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];

[alexusankov]

Судя по тому, как Вы лихо устанавливаете (зачем то) размер первому и второму массиву, то задача очень у вас странная :-)
Присоединяюсь к вышесказанному)). Пока писал ответ, меня опередили)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Old:array [0..10] of String;
    New:array of String;
    NewRevers : array of String;
    i : integer;
begin
 for i := 0 to 10 do old[i] := IntToStr(i); // Делаем массив который 'дан'
 SetLength(New,Length(Old));               // Массив с номальным порядком
 SetLength(NewRevers,Length(Old));      // Массив задом наперед
 for i:=Low(Old) to High(Old) do begin 
    New[i] := Old[i];
    NewRevers[High(Old)-i] := Old[i];
 end;

end.

[GoryachevEugeneS]

Спасибо большое, да, с заданием немного напутал , но почему так получается?-

[alexusankov]

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

Спасибо большое, да, с заданием немного напутал , но почему так получается?

Код:

var Old:array [0..10] of String;
New:array of String;
NewRevers : array of String;
i : integer;
begin
for i := 0 to 10 do old[i] := IntToStr(i); // Делаем массив который 'дан'
SetLength(New,Length(Old));               // Массив с номальным порядком
SetLength(NewRevers,Length(Old));      // Массив задом наперед
for i:=Low(Old) to High(Old) do begin
  New[i] := Old[i];
  NewRevers[High(Old)-i] := Old[i];
end;
for i:=Low(Old) to High(Old) do begin
  ListBox1.Items.Add(New[i] + ' ' + NewRevers[i]); // Кладем в ListBox элемент первого массива и через пробел второго
end;