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

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

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

Const

    COL_MAX = 6;

    ROW_MAX = 4;

    A     = -25;

    B     = 15;

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

var

    z : array [0..COL_MAX - 1, 0..ROW_MAX - 1] of Integer;

procedure TForm1.Button1Click(Sender: TObject);

var

    col, row : Byte;

begin

    for row := 0 to ROW_MAX - 1 do begin

        for col := 0 to COL_MAX - 1 do begin

            z[col, row] := Random(B - A + 1) + A;

            StringGrid1.Cells[col, row] := IntToStr(z[col, row]);

        end;

    end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

    col, row : Byte;

    sum      : Integer;

begin

    sum := 0;

    for row := 0 to ROW_MAX - 1 do begin

        for col := 0 to COL_MAX - 1 do begin

            if z[col, row] > 0 then sum := sum + z[col, row];

        end;

    end;

    Label2.Caption := IntToStr(sum);

end;

procedure TForm1.FormCreate(Sender: TObject);

var

    col, row : Byte;

begin

    Randomize;

    for row := 0 to ROW_MAX - 1 do begin

        for col := 0 to COL_MAX - 1 do begin

            z[col, row] := Random(B - A + 1) + A;

            StringGrid1.Cells[col, row] := IntToStr(z[col, row]);

        end;

    end;

end;