Размер матрицы — 8×9. Формула для определения элементов массива Ai, j=5(i-1)+i*j.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
SG1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
n = 8;
m = 9;
var
a: array [1 .. n, 1 .. m] of integer;
i, j: byte;
ps: real;
begin
randomize;
For i := 1 to n do
For j := 1 to m do
a[i, j] := random(100);
ps := 0;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := 5 * (i - 1) + i * j;
if (i mod 2 <> 0) and (j mod 2 = 0) then
ps := ps + a[i, j];
SG1.Cells[j, i] := inttostr(a[i, j]);
end;
ps := ps / 2;
SG1.Cells[j, i] := inttostr(a[i, j]);
end;
end.\ \ Две остальных кнопки это кнопки " Очистить " и " Закрыть ".