Иван-царевич спешит выручить марью-царевну из плена кощея. в таблице указана протяжённость дорог между - id819074720200718 от arave1 18.07.2020 22:53

Question

Информатика: Иван-царевич спешит выручить марью-царевну из плена кощея. в таблице указана протяжённость дорог между пунктами, через которые он может пройти. укажите длину самого длинного участка кратчайшего пути от ивана-царевича до марьи царевны (от точки и до точки м). передвигаться можно только по дорогам, указанным в таблице: 1)1 2)2 3)3 4)6

arave1 · Accepted Answer

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;

begin
var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println;
var k:=ReadInteger('Введите границу отсечения элементов:');
Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k))
end.

Пример
n= 17
-50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52
Введите границу отсечения элементов: 23
Количество элементов, меньших 23, равно 11

MOGZ ответил