Показать сообщение отдельно
  #1  
Старый 05.06.2013, 15:17
GoryachevEugeneS GoryachevEugeneS вне форума
Прохожий
 
Регистрация: 05.06.2013
Сообщения: 13
Версия Delphi: Delphi 7
Репутация: 10
Восклицание Одномерный массив!

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

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;

Дальше...

Подскажите, намекните, помогите Спасибо!
Ответить с цитированием