Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры

[AHTOXA]

Зачет скоро, а никак задачи эти сделать не могу.
Помогите пожалуйста!!!!
1)
Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры. Поменять местами первый и последний отрицательные элементы массива (считать, что отрицательные элементы есть в массиве). Распечатать преобразованный массив.
2)
Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры. Вставить после максимального элемента массива число, равное удвоенному максимальному элементу массива (считать, что такой элемент единственный). Распечатать полученный массив.

[VVM]

Если правильно понял условия, то держи:
Первая задача
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure FirstAim(n: integer);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FirstAim(n: integer);
var
MyArray: array of integer;
I, K: integer;
begin
try
SetLength(MyArray, n);
for I := 0 to n - 1 do
begin
MyArray[I] := StrToInt(InputBox('Введите '+IntToStr(I)+' элемент массива.','Массив',''));
end;
Form1.Memo1.Lines.Add('Исходный массив');
for I := 0 to n - 1 do
begin
Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
end;
K := MyArray[0];
MyArray[0] := MyArray[n - 1];
MyArray[n - 1] := K;
Form1.Memo1.Lines.Add(' ');
Form1.Memo1.Lines.Add('Результат');
for I := 0 to n - 1 do
begin
Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
end;
finally
MyArray := nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FirstAim(StrToInt(InputBox('Введите размерность массива.', 'Массив','')));
end;
end.

[VVM]

Вторая задача, аналогично

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure SecondAim(n: integer);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SecondAim(n: integer);
var
MyArray: array of integer;
I, K: integer;
begin
try
SetLength(MyArray, n+1);
for I := 0 to n - 1 do
begin
MyArray[I] := StrToInt(InputBox('Введите '+IntToStr(I)+' элемент массива.','Массив',''));
end;
Form1.Memo1.Lines.Add('Исходный массив');
for I := 0 to n - 1 do
begin
Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
end;
K := MyArray[n-1];
K := K*2;
MyArray[n] := K;
Form1.Memo1.Lines.Add(' ');
Form1.Memo1.Lines.Add('Результат');
for I := 0 to n do
begin
Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
end;
finally
MyArray := nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SecondAim(StrToInt(InputBox('Введит е размерность массива.', 'Массив','')));
end;
end.

На форме тебе понадобятся Memo и Button.

[AHTOXA]

СПАСИБО ТЕБЕ БОЛЬШОЕ ОЧЕНЬ ПОМОГ!!!

[VVM]

. 8-)