Найти максимальное число!

[Артем1904]

Найти максимальное число динамического массива у Delphi (случайным Числом) вводить данные через Random, Randomize!

[Артем1904]

Помогите Очень надо)

[viron]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  Arr: array of Integer;
  size: Integer;	// размер массива
  I: Integer;
  max: Integer;	// максимальное число
begin
  Write('Введите размер массива': ');
  Readln(size);
  SetLength(Arr, size);

  Randomize;

  // Заполняем и сразу же печатаем массив
  for I:= 0 to size-1 do
  begin
    Arr[I]:= RandomRange(10, 100);
    Write(Arr[I], ' ');
  end;

  Writeln;

  // Ищем максимальное число в массиве
  max:= Arr[0];

  for I:= 1 to size-1 do
    if Arr[I] > max then
      max:= Arr[i];

  Writeln('max = ', max);

  Readln;
end.

[Артем1904]

А какие компоненти добавлять на форму у Вудзрш

[viron]

А какие компоненти добавлять на форму у Вудзрш

Это я писал в консоле. А на форму можно добавить TEdit чтобы размер массива ввести и кнопку TButton для подсчета. Еще TLable для вывода результата.

[Артем1904]

А можеш ищо ету програму переделать под то чтобы я добавил токо TEdit чтобы размер массива ввести и кнопку TButton для подсчета. Еще TLable для вывода результата Буду очень благодарен

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  Arr: array of Integer;
  size: Integer;	// размер массива
  I: Integer;
  max: Integer;	// максимальное число
begin
  Write('Введите размер массива': ');
  Readln(size);
  SetLength(Arr, size);

  Randomize;

  // Заполняем и сразу же печатаем массив
  for I:= 0 to size-1 do
  begin
    Arr[I]:= RandomRange(10, 100);
    Write(Arr[I], ' ');
  end;

  Writeln;

  // Ищем максимальное число в массиве
  max:= Arr[0];

  for I:= 1 to size-1 do
    if Arr[I] > max then
      max:= Arr[i];

  Writeln('max = ', max);

  Readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[viron]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Arr: array of Integer;
  size: Integer;
  I: Integer;
  max: Integer;
begin
  Label2.Caption:= '';

  size:= StrToInt(Edit1.Text);
  SetLength(Arr, size);

  // Заполняем массив случайными числами
  for I:= 0 to size-1 do
  begin
    Arr[i]:= RandomRange(10, 100);  // Случайное число от 10 до 100
    Label2.Caption:= Label2.Caption + IntToStr(Arr[i]) + ' ';
  end;

  Label2.Caption:= Label2.Caption + #13;

  // Ищем максимальное число
  max:= Arr[0];

  for I:= 1 to size-1 do
    if Arr[i] > max then
      max:= Arr[i];

  ShowMessage('Максимальное число в массиве = ' + IntToStr(max));

  SetLength(Arr, 0);
end;

end.

[Артем1904]

Большое спасибо))))

[Артем1904]

А чтобы сделать её так чтоби сам вводил числа которие те нада а она ищит максимальное из них?

[viron]

У кнопки должно быть событие OnClick(). Два раза щелкни мышкой по кнопке или в Object Inspector -> Events -> OnClick