Var m:array of integer;
a,b,i,n,min,max:integer;
begin
readln(n,a,b);
setlength(m,n);
n-=1;
a-=1;
b-=1;
max:=a;
min:=a;
for i:=0 to n do begin
read(m[i]);
if (i>=a) and (i<=b) and (m[i]>m[max]) then max:=i;
if (i>=a) and (i<=b) and (m[i]<m[min]) then min:=i;
end;
writeln('Min ',m[min],' Max ',m[max]);
<span>end.</span>
Номер 17, ответ 9
А ещё у вас ошибка вроде в 18
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;
Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)
end.
<u>Пример</u>
n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9
$ - значит абсолютный адрес, не меняется при переносе.
1) С3 -> B4 значит на одну строку вниз, на ячейку влево, значит B1 перейдет в A2, ответ
=$A$1 + A2
2) E3 -> D2 это на строку выше и столбец левее
<span>B2 -> A1
</span><span>$C3 -> $C2
</span>ответ
<span>=A1+$C2</span>