Задан массив из случайных чисел из ста элементов.Найти минимальный элемент массива.Составить блок-схему.

varm: array[1..100] of integer;x,min:integer;begin randomize;for x:=1 to 100 do m[x]:=random(20);for x:=1 to 100 dowrite(m[x]:5);writeln;min:=m[1];for x:=2 to 100 do if m[x] < min then min:=m[x];writeln('Минимум = ', min);end.