delphi 7 Ну никак не могу решить задачу(((

[Anna_4444]

А мне вот с этими кривыми кнопочками и нужно

[MyLastHit]

Ну тогда все элементарно. Создаете динамический двумерный массив TEdit'ов, в обработчике кнопки результата циклами пробегаете все их значения и заносите их в двумерный динамический массив типа Integer(поэлементно конечно же). Не забудьте привести типы.
Создаете процедуру(или функцию - это на ваш вкус) на основе того листинга что вам уже предоставили - и вуоля. Делфи вам только что посношал мозги.

Поэтому не нужно вам

Сообщение от Anna_4444

вот с этими кривыми кнопочками

[Ghost of Night]

Тогда замените 3-4 строчки, и ещё парочку добавьте. И будет с кнопочками)))

[Ghost of Night]

MyLastHit
Зачем массив Эдитов? Там StringGrid1: TStringGrid; имеется.

[Anna_4444]

Акакие именно 3-4 строчки, поскажите????

[MyLastHit]

и ещё парочку добавьте

Вы хотели сказать "пару десятков строк"?

UPD: Упс не увидел этот компонент.

[Anna_4444]

Как можно решить эту задачу, чтобы туда поместились и Edit1, Edit2, Button1, Button2, Memo1, StringGrid1 ну может быть и что-нибудь еще?????

[MyLastHit]

Анна, с нулевыми знаниями такие программы не пишут...

Даже если мы вам скинем код Вы сами не сможете сопрячь компоненты формы с привязанными к ним процедурами. А за бесплатно писать программу, компилировать ее и скидывать вам в архиве никто не согласится.

[Ghost of Night]

Вы хотели сказать "пару десятков строк"?

Это я образно...

Акакие именно 3-4 строчки, поскажите????

begin
      matr[i, j] := random(100) - 50;
      if (i = j) and not show_main_diagonal then
        Memo1.Lines.Add('XX');
      else
        Memo1.Lines.Add(IntToStr(matr[i, j]));

....
// Вывод результата
Memo1.Lines.Add('sum = '+ IntToStr(sum)+#13+ 
'prod = '+ InttoStr(prod));

Числа вносить в StringGrid1. И добавить процедуру считывания из StringGrid1 в массив

[Anna_4444]

Ну почемуже с нулевыми, япосмотрю как делать правильно и все пойму, я просто по профессии не программист, а программку-то написать надо