максимум суммы трех последовательных элементов.

[Siluet]

Помогите пожалуйста! Оч срочно надо
В массиве 10 случайных реальных чисел от 0 до 1 найти максимум суммы трех последовательных элементов.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Label2: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sum,x,i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

if (key=#13) and (x<10) then begin
inc(x); StringGrid1.Cells[i,j]:=Edit1.Text;
inc(i);
end;
if (key=#13) then edit1.Clear;

end;


procedure TForm1.Button2Click(Sender: TObject);
var a:integer;
begin
i:=0;
for a:=1 to 10 do begin
if
(StrToInt(StringGrid1.Cells[i,1])<StrToInt(StringGrid1.Cells[i+1,1]))
and
(StrToInt(StringGrid1.Cells[i+1,1])<StrToInt(StringGrid1.Cells[i+2,1]))
then begin
sum:=StrToInt(StringGrid1.Cells[i,1])+StrToInt(StringGrid1.Cells[i+1,1])+StrToInt(StringGrid1.Cells[i+2,1]);
end;
inc(i);
end;
label2.Caption:=IntToStr(sum);
end;

end.

[psycho-coder]

Так пойдет?

procedure TForm1.Button1Click(Sender: TObject);
var
  arr: array [1..10] of Byte;
  res: array [1..9] of Byte;
  i, max: Integer;
begin
  RandomIze;
  Label1.Caption := '';
  Label2.Caption := '';
  for i := 1 to 10 do
  begin
    arr[i] := Random(2); // Вывод для наглядности
    Label1.Caption := Label1.Caption + #32 + IntToStr(arr[i]);
  end;
  for i := 1 to 8 do
  begin
    res[i] := arr[i] + arr[i+1] + arr[i+2];
    Label2.Caption := Label2.Caption + #32 + IntToStr(res[i]);
  end;
  max := -1;
  for i := 0 to 8 do
    if res[i] > max then max := res[i];
  Button1.Caption := IntToStr(max);
end;

[Siluet]

хм.. а вот нада что он генерил дробные числа.. 0.1, 0.2, 0.3 и т.д.
как это в рандоме прописать ?

[raxp]

...как насчет, генерить в диапазоне десятков, сотен и т.д. в зависимости от того сколько знаков нужно и делить на мантиссу... например генеришь в диапазоне до 100, делишь на 100... (56/100 -> 0.56)