Найти наименьший элемент двумерного массива заполненного случайными числами в диапазоне от 0 до 20

Var

a: array [1 ... 10,1 ... 10] of Integer;

i, j, min:Integer;

begin

for i:=1 to 10 do

begin

for j:=1 to 10 do

begin

a[i, j]:=Random (20) ;

Write (a[i, j]:3) ;

end;

WriteLn () ;

end;

min: = a[1,1];

for i:=1 to 10 do

for j:=1 to 10 do

if a[i, j] < min then min:=a[i, j];

WriteLn ('Минимальный элемент равен ', min) ;

end.