uses crt; {вывод результата в отдельном окне}
var i,j,n,m,max,min:integer; {ввод переменных}
a:array[1..10,1..10] of integer; {ввод массива}
begin
clrscr; {очистка экрана вывода}
writeln ('vvedite chislo n'); {выводим на экран сообщение}
read(n); {вводим число}
writeln ('vvedite chislo m'); {выводим на экран сообщение}
read(m); {вводим число}
writeln ('vvedite elementu massiva'); {выводим на экран сообщение}
for i:=1 to n do
for j:=1 to m do
begin {откроем операторные скобки, чтобы каждый раз не задавать границы массива}
readln(a[i,j]); {вводим массив}
max:=a[1,1]; {задаем значения для минимума и максимума для сравнения с другими элементами}
min:=a[1,1];
if a[i,j] > max then
max:= a[i,j];
if a[i,j] < min then
min:=a[i,j];
end; {закроем операторные скобки}
writeln('max=',max,'min=',min); {вывод на экран сообщения}
end.
