unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Table1: TStringGrid;
Button1: TButton;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
mas: array [1 .. 6, 1 .. 6] of integer;
s: array [1 .. 6] of integer;
max, maxN: integer;
min: integer;
i, j: integer;
begin
for i := 1 to 6 do
begin
for j := 1 to 6 do
begin
mas[i, j] := Random(100);
Table1.Cells[i, j] := FloatToStr(mas[i, j]);
end;
end;
for i := 1 to 6 do
begin
s[i] := 0;
for j := 1 to 6 do
begin
s[i] := s[i] + abs(mas[i, j]);
end;
end;
max := 1;
For i := 1 to 6 do
begin
if s[i] > max then
begin
max := s[i];
maxN := i;
end;
end;
Label3.Caption := IntToStr(maxN);
min := 100;
For j := 1 to 6 do
if mas[maxN, j] < min then
min := mas[maxN, j];
Label4.Caption := IntToStr(min);
end;
end.