Написать программу, которая запрашивает массив из N элементов, а затем делает все…

var i,N: integer; Min: real; mas: array[0… 100]of real; beeginwrite ('введите N'); read (N); {for i: =1 to N do beginmas[i]: =random (50); write (mas[i],'); end; илиfor i: =1 to N doread (mas[i]); for i: =1 to N dowrite (mas[i],'); } min: =mas[0]; for i: =0 to N do if min