// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив', 10);
a.Where(t -> (abs(t) > 9) and (abs(t) < 100)).Println();
end.
== проверяет одинаково ли значение операндов, если одинаковы – то условие является истинной (true);
!= проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
<> проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
> проверяет значение левого оператора, если он больше, чем правый – то условие является истинной;
< проверяет значение левого оператора, если он меньше, чем правый – то условие является истинной;
>= проверяет значение левого оператора, если он больше или равен правому – то условие является истинной;
<= проверяет значение левого оператора, если он меньше или равен правому – то условие является истинной;
Минимальная длина дорог = 7+8+5+4+10+6 = 40
Решение - в прилагаемом файле
Запрос__________________________
<span>в ед измерения не 1000 ед а 1024</span>
