<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Слайд, создать и все вроде
Сколько вершин? 31
Есть ли рёбра? Да
Есть ли направление? Нет
Все вершины соединены рёбрами? Да
Пояснение:
Вершины просто посчитать. Рёбра безусловно есть, они соединяют вершины. Направления нет (неориентированный граф, нет стрелочек на рёбрах). Все вершины соединены, нет изолированных, то есть граф связный.
Пожалуй больше ничего и не скажешь. Разве что такие графы называются "деревьями", в этом случае дерево двоичное. То есть один корень, и степени вершин неориентированного в данном случае дерева не превосходят 3. Этого в задании нет, однако можно отметить для общего развития.