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

uses crt;

var a:array[1 ... 10] of integer;

var i, j, min:integer;

begin

writeln ('Массив: ') ;

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]
end;

end;

writeln ('Минимальное значение: ', min) ;

end.