найти наименьший элемент в двумерном массива?

На языке Паскаль:

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.