Лабораторная работа 8. Упражнение 17

Пример программы

// Глобальные константы.

Const

    FIRST_ROW = 0;

    N_MAX     = 15;

    A         = -5;

    B         = 10;

// Глобальные переменные.

var

    z : array [0..N_MAX - 1] of Integer;

procedure TForm1.Button1Click(Sender: TObject);

var

    i : Byte;

begin

    for i := 0 to N_MAX - 1 do begin

            z[i] := Random(B - A + 1) + A;

            StringGrid1.Cells[i, FIRST_ROW] := IntToStr(z[i]);

    end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

    i, n : Byte;

    x    : Integer;

begin

    n := 0;

    x := SpinEdit1.Value;

    for i := 0 to N_MAX - 1 do begin

        if z[i] = x then Inc(n);

    end;

    Label3.Caption := IntToStr(n);

end;

procedure TForm1.FormCreate(Sender: TObject);

var

    i : Byte;

begin

    Randomize;

    SpinEdit1.MinValue := A;

    SpinEdit1.MaxValue := B;

    for i := 0 to N_MAX - 1 do begin

            z[i] := Random(B - A + 1) + A;

            StringGrid1.Cells[i, FIRST_ROW] := IntToStr(z[i]);

    end;

end;