сделайте пожалуйста 2,3 необходимо очень безотлагательно даю 30 баллов если что

Отмечаем если лучший
2)
var min:Integer;
const n=10;
var b:array[1..n] of Integer:= (1,2,4-6,3,-1,0,-5,-6,2,-2);
begin
min:=Integer.MaxValue;
for var i:= 1 to n do
if b[i]lt;min then
min:=b[i];
WriteLn(min);
end.
3)
var c:Integer;
const n=7;
var a:array[1..n] of Integer:= (1,2,4,-6,3,-1,0);
begin
for var i:= 1 to n do
if a[i]lt;0 then
c+=1;
WriteLn(c);
end.