Впорядкування масиву

Що знаходить дана програма?

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; x: real; f: boolean;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]); 

 x := StrToFloat(Edit1.Text);

 f := false;

 for i := 1 to 10 do

 If a[i] = x

 Then begin   f := true;   break;  end;

 If f = true Then Label1.Caption = ‘Число є’

    Else Label1.Caption := ‘Числа немає’;

end;

Що знаходить дана програма?

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; s: real;

begin

 for i := 1 to 10 do

a[i] := StrToFloat(Memo1.Lines[i-1]); 

  s := 0;

 for i := 1 to 10 do if a[i] <0 then s := s + 1;

 Label1.Caption := FloatToStr(s);

end; 

Що знаходить дана програма?

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; s: real;

begin

 for i := 1 to 10 do

a[i] := StrToFloat(Memo1.Lines[i-1]); 

  s := 0;

 for i := 1 to 10 do s := s + a[i];

s:=s/10;

 Label1.Caption := FloatToStr(s);

end; 

Яка команда використовується при заповнені масиву випадковими цілими числами в межах 40?

Яка команда використовується при заповнені масиву випадковими дійсними числами від 0 до 1?

Оберіть властивості масива: