На языке Паскаль:
const n=5; - объявляем константу n, в которой будет храниться размер двумерного массива
var a:array [1..n,1..n] of integer;-объявляем массив
min:integer;-объявление переменной где будет храниться минимальный элемент
i,j:byte;-объявляем две вспомогательные переменные для цикла
begin - тело программы
for i:=1 to n do - цикл по строкам
for j:=1 to n do begin - цикл по столбцам
readln(a[i,j]); - вводим элемент в массив
if (i=1) and (j=1) then min:=min:=a[i,j]; - здесь происходит присваивание первого элемента для сравнения с последующими
if min>a[i,j] then min:=a[i,j]; - проверяем на условие минимума, если переменная min больше элемента массива, то присваиваем ей значение массива
end;
writeln('Минимальный элемент двумерного массива=',min); - вывод минимального элемента
end.