как вывести на экран локальные минимумы в среде delphi ?

[кристина19]

спасибо всем ) вопрос отпал, я код модифицировала чуток и всё получилось ) ничего не затирается )

[vedro-compota]

если получается- выкладывай правильный ответ (может кому-то пригодиться) - это на будущее ))

[кристина19]

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

const

SIZE=5;

var

a : array[1..SIZE] of integer; // массив целых чисел
i: integer; // индекс
lokM: integer;// локальный минимум

begin

// ввод массива

// считаем, что если ячейка пустая, то соответствующий

// ей элемент массива равен нулю


for i:= 2 to SIZE do
if StringGrid1.Cells[i-1, 0] <> ''
then a[i] := StrToInt(StringGrid1.Cells[i-1,0])
else a[i] := 0;


// обработка массива

for i :=1 to SIZE do
if (a[i] < a[i-1]) and (a[i] < a[i + 1]) then
begin
lokM:=a[i];
// вывод результата
Label2.Caption := Label2.Caption + 'Локальный минимум: ' + IntToStr(lokM) + #13+'номер элемента:' + IntToStr(lokM) + ' ';
end;


end.