Question

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

Answer 1

Отмечаем если лучший
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]<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]<0 then
c+=1;
WriteLn(c);
end.