unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Label1: TLabel; procedure StringGrid1Click(Sender: TObject); procedure Label1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.StringGrid1Click(Sender: TObject); const M = 20; var Arr : array[1..M] of Integer; i, F : Integer; begin repeat //Заполняем массив. Randomize; for i := 1 to M do begin case Random(10) of 0 : Arr := 1; 1 : Arr := -1; else Arr := 2; end; //Распечатка элементов массива. if i > 1 then Write(', '); Write(Arr); end; //Определяем какое число встречается раньше - //положительное или отрицательное. F := 0; for i := 1 to M do begin if Arr > 0 then begin F := 1; Break; end else if Arr < 0 then begin F := -1; Break; end; end; procedure TForm1.Label1Click(Sender: TObject); F:integer; begin if F > 0 then Writeln('Раньше встречается положительное число.') else if F < 0 then Writeln('Раньше встречается отрицательное число число.') else Writeln('Массив содержит только нули.'); end; end.