завтра сдавать, а как делать понятия не имею

[asd-uk]

помогите кто сможет!!

1.
Составить программу, которая организует ввод матрицы размерностью 5х5
и заменяет значения диагональных элементов суммами элементов соответствующих
столбцов. нужно с делать на форме через String Grid...
2.
Создать новый класс компонентов для ввода чисел. При вводе
отрицательного числа компонент должен отображать данные без знака минус, но красным
цветом. тоже на форме...

[Stilet]

2.
Создать новый класс компонентов для ввода чисел. При вводе
отрицательного числа компонент должен отображать данные без знака минус, но красным
цветом. тоже на форме...

Подсказываю.

   private
    i:integer;
    procedure OnPaint(var m:TWMPaint); message  WM_PAINT;
    procedure _onChange(Sender:TObject);
   Public
    constructor Create(AOwner:TComponent); override;
  end;

Это класс компонента

{ TEdit }

constructor TEdit.Create(AOwner: TComponent);
begin
  inherited;
  OnChange:=_onChange;
end;

procedure TEdit.OnPaint(var m: TWMPaint);
begin
 if TryStrToInt(Text,i) and (i<0) then
  Font.Color:=clRed else Font.Color:=clBlack;
 inherited;
end;

procedure TEdit._onChange(Sender: TObject);
begin
 Repaint;
end;

Это его реализация.

Твоя задача:
1) Оформить это в виде компонента
2) Добавить в отрисовку отсечение минуса


Теперь насчет первой:

Кинь на форму кнопку и грид
В событии OnCreate формы напиши:

procedure TForm1.FormCreate(Sender: TObject);
var i,k:integer;
begin
 for i:=0 to 5 do
  for k:=0 to 5 do
   StringGrid1.Cells[i,k]:=IntToStr(random(100));
end;

И в событии клика кнопки

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,k,e:integer;
begin
 for i:=0 to 5 do begin
  for k:=0 to 5 do e:=StrToInt(StringGrid1.Cells[i,k])+e;
   StringGrid1.Cells[i,i]:=IntToStr(e);
 end;
end;

[Grag]

Задача №1 решается так...

Const
  N=4;
Var
  i,j:byte;
  Sum:word;
  A:array[0..N,0..N] of byte;

begin
  //заполняем массив рандомно...
  Randomize;
  for j:=0 to N do
    for i:=0 to N do
      A[j,i]:=random(100);
  //а теперь подсчитываем сумму элементов столбцов и меняем диагональные элементы на сумму...
  for i:=0 to N do
    begin
      Sum:=0;
      for j:=0 to N do
        Sum:=Sum+A[j,i];
      A[i,i]:=Sum;
      A[N-i,i]:=Sum
    end;     
end;

Ну, а уж оформить это все в StringGrid - сам пожалуйста...