сделайте пожалуйста 2,3 нужно очень срочно даю 30 баллов если что это нужно сделать в pacal abc заранее спасибо

Отмечаем если лучший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);beginmin:=Integer.MaxValue;for var i:= 1 to n doif b[i]<min thenmin:=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);beginfor var i:= 1 to n doif a[i]<0 thenc+=1;WriteLn(c);end.