l, n, m: integer; {k, l –
індекси найбільшого елемента}max: real;
a: array[1..20,1..20] of real;
begin
write('Введіть кількість рядків масиву (<=20): ');
readln(n); {Введення кількості рядків масиву}
write('Введіть кількість стовпчиків масиву (<=20): ');
readln(m); {Введення кількості стовпчиків масиву}
for i:=1 to n do
begin
for j:=1 to m do
begin
write(‘A[‘,i, ’, ‘,j,’]=’);
readln(A[i,j]); {Заповнення масиву }
end;
end;