Заполнить одномерный целочисленный массив размерности n числами. Поменять местами элементы

Категория: Delphi/Pascal
2011-08-28 22:13:33

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

code: #delphi
  1. unit Unit1;
  2.  interface
  3.  uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls;
  6.  type
  7.   TForm1 = class(TForm)
  8.   Button1: TButton;
  9.   Memo1: TMemo;
  10.  procedure Button1Click(Sender: TObject);
  11.  private
  12.  { Private declarations }
  13.  public
  14.  procedure FirstAim(n: integer);
  15.  end;
  16.  var
  17.  Form1: TForm1;
  18.  implementation
  19.  {$R *.dfm}
  20.  procedure TForm1.FirstAim(n: integer);
  21.  var
  22.  MyArray: array of integer;
  23.  I, K: integer;
  24.  begin
  25.   try
  26.   SetLength(MyArray, n);
  27.   for I := 0 to n - 1 do
  28.   begin
  29.    MyArray[I] := StrToInt(InputBox('Введите '+IntToStr(I)+' элемент массива.','Массив',''));
  30.   end;
  31.  Form1.Memo1.Lines.Add('Исходный массив');
  32.  for I := 0 to n - 1 do
  33.  begin
  34.   Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
  35.  end;
  36.  K := MyArray[0];
  37.  MyArray[0] := MyArray[n - 1];
  38.  MyArray[n - 1] := K;
  39.  Form1.Memo1.Lines.Add(' ');
  40.  Form1.Memo1.Lines.Add('Результат');
  41.  for I := 0 to n - 1 do
  42.  begin
  43.   Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
  44.  end;
  45.  finally
  46.  MyArray := nil;
  47.  end;
  48.  end;
  49.  
  50.  procedure TForm1.Button1Click(Sender: TObject);
  51.  begin
  52.   FirstAim(StrToInt(InputBox('Введите размерность массива.', 'Массив','')));
  53.  end;
  54.  end.
Поделиться:

Похожие статьи:

теги: одномерный массив, массив, студенты, заполнение массива, динамические массивы