Ввести с клавиатуры целочисленную матрицу размера 4х4. Найти минимальный элемент каждого столбца.

[ДМИТРИЙ1234]

Ввести с клавиатуры целочисленную матрицу размера 4х4.
Найти минимальный элемент каждого столбца.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Button3: TButton;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
k: byte;
begin
Randomize; // инициализация генератора случайных чисел.
with StringGrid1 do
for i:= 0 to RowCount - 1 do
for j:= 0 to ColCount - 1 do
  begin
  k:= Random(2);
  if k = 0 then
Cells[j,i]:= '-' + IntToStr(Random(100))
  else
Cells[j,i]:= IntToStr(Random(100));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i, j, min, k: integer;
begin
with StringGrid1 do
for j:= 0 to ColCount - 1 do // Идем по столбцами.
  begin
  k:= 0;
  min:= Abs(StrToInt(Cells[j,0])); // минимальное число в столбце - модуль верхнего.
    for i:= 0 to RowCount - 1 do // Идем по строкам.
      begin
        if abs(StrToInt(Cells[j,i])) < min then
          begin
          min:= abs(StrToInt(Cells[j,i]));
          k:= i;
          end;
      end;
  Cells[j,k]:= '0';
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

[Rififi]

Спасибо за прогу, братюнь! пригодится...

[Stilet]

Ввести с клавиатуры

with StringGrid1 do for i:= 0 to RowCount - 1 do for j:= 0 to ColCount - 1 do Cells[j,i]:= InputBox('Введи число','','');

пригодится...

Врядли.

[Rififi]

Врядли.

Выкинул... ):

[Serge_Bliznykov]

Кстати, так всё таки:

Randomize; // инициализация генератора случайных чисел.
..... Random(100)

или

Ввести с клавиатуры целочисленную матрицу размера 4х4.

?!
это первый вопрос.

второй вопрос. Вы знаете, что если у StringGrid'а включить опцию goEditing, то содержимое грида можно редактировать?
(опцию можно включить как в дизайнере - в свойствах грида, так и в RunTime:

  StringGrid1.Options := StringGrid1.Options + [goEditing];

ну и третий вопрос.
Что, собственно, не получается? В чём нужна помощь?!