Заполнить массив случайными числами от -1000 до 1000, найти минимальное значение из…

uses crt; var a: array[1… 10] of integer; var i,j,min: integer; beginwriteln ('Массив: '); for i: =1 to 10 do begin a[i]: =random (1000- (-1000)+1) -1000; write (a[i]: 5); end; writeln; for i: =1 to 10 do begin min: =a[i]; for j: =1 to 10 do begin if a[j]