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

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

Заполнить одномерный целочисленный массив размерности 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 SecondAim(n: integer);
  15.  end;
  16.  var
  17.  Form1: TForm1;
  18.  implementation
  19.  {$R *.dfm}
  20.  procedure TForm1.SecondAim(n: integer);
  21.  var
  22.  MyArray: array of integer;
  23.  I, K: integer;
  24.  begin
  25.  try
  26.  SetLength(MyArray, n+1);
  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[n-1];
  37.  K := K*2;
  38.  MyArray[n] := K;
  39.  Form1.Memo1.Lines.Add(' ');
  40.  Form1.Memo1.Lines.Add('Результат');
  41.  for I := 0 to n 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.  SecondAim(StrToInt(InputBox('Введит е размерность массива.', 'Массив','')));
  53.  end;
  54.  end.
Поделиться:

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

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