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;

![Двовимірні масиви
Назарова Н.С.
ліцей “Самара” max:=a[1,1]; k:=1; l:=1; {Вважаємо, що найбільший елемент є A[1,1]} max:=a[1,1]; k:=1; l:=1; {Вважаємо, що найбільший елемент є A[1,1]} for i:=1](/img/tmb/4/347782/f031ecc4646943a5773a80fa7a2dede6-800x.jpg)

