поиск минимального и максимального элемента

[apelsun]

Задача Найти минимальный и максимальный элемент в массиве.

Массив сгенерировала, а вот с поиском что-то не так. совсем запуталась уже.

unit Unit1;

interface

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   s, ss: string;
   a: array [1..15] of integer;
   I, j, k, max, min, p, code : integer;
implementation

{$R *.xfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button3Click(Sender: TObject); // минимальное и максимальное число
begin
s:=Edit1.Text;
s:= concat (s, #32);
i:= 0;
while Length(s)>0 do
begin
i:= i+1;
p:= pos (#32,s);
ss:= copy (s,1,p-1);
Val (ss,k,code);
a[i]:= k;
delete(s,1,p);
end;
max:= a[1];
For j:= 1 to i do
if max< a[j] then max:= a[j];
min:= a[1];
For j := 1 to i do
if min> a[j] then min:= a[j];
Edit3.Text:= IntToStr (max);
Edit2.Text:= IntToStr (min);
end;

procedure TForm1.Button4Click(Sender: TObject); // генерация массива
begin
randomize;
s:= '';
For i:= 1 to 15 do
begin
a[i]:= random (26);
s:= concat (s, IntToStr (a[i]), #32);
end;
Edit1.Text := s;

end;

end.

[Stilet]

procedure TForm1.Button3Click(Sender: TObject); // минимальное и максимальное число

Выкинь этот обработчик.

Вот смотри:

procedure TForm1.Button4Click(Sender: TObject); // генерация массива
begin
randomize; max:=-MaxInt; min:=MaxInt;
s:= '';
For i:= 1 to 15 do begin
 a[i]:= random (26);
 if max< a[i] then max:= a[i];
 if min> a[i] then min:= a[i];
 s:= concat (s, IntToStr (a[i]), #32);
end;
Edit1.Text := s;
Edit3.Text:= IntToStr (max);
Edit2.Text:= IntToStr (min);
end;

И все, не нужно лишнего городить.

[apelsun]

а если все же, необходима кнопка генерации массива, можно разделить поиск и генерацию?

[Stilet]

Можно но зачем парсить Эдит?

procedure TForm1.Button4Click(Sender: TObject); // генерация массива
begin
randomize; 
For i:= 1 to 15 do begin
 a[i]:= random (26);
end;
end;

procedure TForm1.Button3Click(Sender: TObject); // минимальное и максимальное число 
begin
randomize; max:=-MaxInt; min:=MaxInt;
s:= '';
For i:= 1 to 15 do begin
 if max< a[i] then max:= a[i];
 if min> a[i] then min:= a[i];
end;
Edit3.Text:= IntToStr (max);
Edit2.Text:= IntToStr (min);
end;