[AndrYxo]

Это снова я - слушайте - написал прогу - работает вроде - вот по условию: Наити произведение положительных элементов масива А={a[i]}, удовлетворяющих условию:
с<=a[i]<=d

Но блин - считает произведение - а оно отрицательное иногда получается - плиз - посмотрите прогу и скажите что не так...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids;   type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Memo1: TMemo;     StringGrid1: TStringGrid;     Label1: TLabel;     Label2: TLabel;     Button2: TButton;     Button3: TButton;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var a:array [0..19] of integer; P:integer; i:integer; c,d:real; begin randomize; for i:=0 to 19 do begin a[i]:=random(50--50+1)-50; StringGrid1.Cells[i,0]:=InttoStr(a[i]); end; P:=1; c:=StrtoInt(Edit1.Text); d:=StrtoInt(Edit2.Text); for i:=0 to 19 do if (a[i]>=c) and (a[i]<=d) and (a[i]>0) then P:=P*a[i]; Memo1.Lines.Add(FormatFloat('0.00',P)); end; procedure TForm1.Button2Click(Sender: TObject); begin memo1.Clear; Edit1.Clear; Edit2.Clear; end;   procedure TForm1.Button3Click(Sender: TObject); begin Form1.Close; end;   end.