Двухмерный масив Делфи 10

[Джей Харриссон]

Дана задача: Найти произведение положительных кратных 3 элементов матрицы 3 на 5.

[p51x]

Решайте, разрешаю

[Desc]

Забыли разрешить прошерстить делфийский раздел форума.
А там готовых примеров тьма-тьмущая

[Джей Харриссон]

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

Решайте, разрешаю

Простите уж, с самим решением вроде все в порядке, а вот ввод не работает. Просто не считывает числа и поэтому выдает недопустимое значение. Коды которые я нахожу не меняют ситуацию.

[Serge_Bliznykov]

Сообщение от Джей Харриссон

а вот ввод не работает.

так покажите код, который не работает, будет повод для разговора.

[Desc]

Сообщение от Джей Харриссон

а вот ввод не работает

Ввод от куда и куда?
Код ошибки и\или проблемную часть листинга приведите. Общаться будет проще.

[Джей Харриссон]

Const
n = 3;
m = 5;
type
TMatrix = array[1..n,1..m] of integer;
var
a:TMatrix;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
   a: array [1..3, 1..5] of integer;
begin
for i:=1 to 3 do
for j:=1 to 5 do
a[i, j]:= StrToInt(StringGrid1.Cells[j-1, i-1]);
end;

______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Джей Харриссон]

А числа вводит пользователь.

[Desc]

Так если Вы здесь задали константы (размер):

Const
n = 3;
m = 5;

Зачем здесь:

i,j:integer;
a: array [1..3, 1..5] of integer;
begin
for i:=1 to 3 do
for j:=1 to 5 do

явно их повторять(дублировать)?

[Джей Харриссон]

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

Так если Вы здесь задали константы (размер):

Const
n = 3;
m = 5;

Зачем здесь:

i,j:integer;
a: array [1..3, 1..5] of integer;
begin
for i:=1 to 3 do
for j:=1 to 5 do

явно их повторять(дублировать)?

Как научили так и делаем...