Ввод двумерного динамического массива

@jerryway · Регистрация: 20.01.2010

Author24 — интернет-сервис помощи студентам

Нужно реализовать такую подпрограмму: Ввод двумерного динамического массива M*N (M-число строк, N-число столбцов) в поле LabeledEdit.

Заголовку поля нужно присваивать текст: 'Введите элемент [номер строки, номер столбца]'
Вводится число, пользователь нажимает Enter, число присваивается соответствующему элементу массива, окно ввода очищается, изменяется заголовок (В заголовке всегда номер строки и столбца, на пересечении которых лежит элемент)

Я не могу понять как реализовать очистку окна ввода по нажатию клавиши Enter и присваивание введённого значения соответствующему элементу массива.

На Паскале моя программа выглядит так:

Pascal

var a: array of array of real;
m,n,i,X,Y,j:integer; s:real;
begin
Write('Введите количество строк');
read(m);
Write('Введите количество столбцов');
read(n);
setlength(a,m);
for i:=0 to high(a)
do setlength(a[i], n);
for i:=0 to m-1 do
for j:=0 to n-1 do
begin
Writeln('Введите элемент',' ',i+1,' ',j+1);
read(a[i,j]); 
end;
s:=a[0,0];
X:=0;
Y:=0;
for i:=0 to high(a) do
for j:=0 to high(a) do
if a[i,j]>s 
  then s:=a[i,j];
       X:=i;
       Y:=j;
writeln('Максимальный элемент',' ',s,' Его номер ',X,Y);
end.

	24.03.2012, 20:26