Question

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

Answer 1

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.