var
Form1: TForm1;
mas:array[0..40]of integer;
i,sum,a,b,z:integer;
x:string;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
b:=a+1;
memo1.Lines.Add('');
memo1.Lines.Add('');
memo1.Lines.Add('');
z:=strtoint(edit1.Text);
for i:=1 to z do
begin
mas[i]:=random(46)-15;
if (mas[i]>0) then sum:=sum+mas[i];
x:=x+inttostr(mas[i])+' ';
//memo1.lines[0]:=memo1.lines[0]+x+' ';
end;
memo1.lines[a]:='Массив: '+x;
memo1.lines[b]:='Сумма положительных чисел: '+inttostr(sum);
sum:=0;
a:=a+3;
x:='';
end;
procedure TForm1.N1Click(Sender: TObject);
begin
form2.showmodal;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form3.showmodal;
end;
