Так, я те 1-ю задачу набросал... если чё-то нетак исправиш сам.
2-ю уже сам решай
))
Размещай на форме stringgrid и button (Стринггрид шоб ты видел шо делаеться с массивом)
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
k=10;// количество строк
b=5;// количество столбцов
var
a:array [1..k,1..b] of real;// двухмерный массив
i,f:integer; // счётчики
delcol,delrow:integer; // нужный нам номер колонки и строки
amin:real; // наше минимальное значение
begin
stringgrid1.ColCount:=b; // Присваиваем стринггридду нужное количество строк и столбцов
stringgrid1.RowCount:=k;
amin:=10000000000000; /// ну эт шоб мало небыло
for i:=0 to k-1 do
for f:=0 to b-1 do begin
a[i,f]:=-50 +Random(101); // Заполняем случайно числами от -50 до 50
stringgrid1.Cells[f,i]:=floattostr(a[i,f]); // заполняем таблицу
if abs(a[i,f])<amin then begin // если значение ячейки меньше amin то
amin:=abs(a[i,f]); // присваиваем amin это значение и запоминаем номера строки и столбца в котором находиться
delcol:=f;
delrow:=i;
end;
end;
for i:=0 to k-1 do begin
a[i,delcol]:=0;
stringgrid1.Cells[delcol,i]:=''; // Удаляем строку
end;
for i:=0 to b-1 do begin
a[delrow,i]:=0;
stringgrid1.Cells[i,delrow]:=''; // Удаляем столбец
end;
end;