На рисунке схема дорог Д-ского района изображена в виде графа, в таблице содержатся сведения о длине этих дорог в километрах.Так как таблицу и схему рисовали независимо друг от друга, то нумерация населённых пунктов в таблице никак не связана с буквенными обозначениями на графе. Определите длину кратчайшей дороги из пункта В в пункт К.
Внимание! Длины отрезков на схеме не отражают длины дорог.

Вирус. Вполне возможно, что ваш компьютер заражен вирусом, ведь это одно из частых объяснений почти всех проблем. Но как он мог оказаться на моем компьютере, если есть антивирус? А давно ли вы обновляли его базы? Может быть, они уже потеряли актуальность.

Программы, пожирающие трафик. Компьютер после подключения к интернету может начать тормозить потому, что множество программ начинают качать обновления. Происходит это довольно часто, а одновременная нагрузка сказывается на производительности.

Обновление драйверов. Бывали и такие случаи, когда «тормоза» после подключения появлялись из-за автоматического обновления драйверов, которые были несовместимы и конфликтовали друг с другом.

Проблемы с ОС. После заражения системы, внесения различных изменений и прочих действий, вполне возможно, что у вас появились проблемы с операционной системой. Даже ошибки в одном системном файле могут стать причиной медленной работы.

Если у вас тормозит компьютер после подключения к интернету, попробуйте отключить планировщик пакетов QoS, в некоторых случаях это полностью решить проблему.

1.
Program naconecto;const n=5;varA:array[1..n,1..n] of integer;sum,poz,i,j:integer;BEGINrandomize;for i:=1 to n do  begin    for j:=1 to 1 do      begin        a[i,j]:=random(-100,100);        sum:=sum+1;        if a[i,j]>=0 then          begin            poz:=poz+1;          end;      end;  end;  writeln('cyMMa=',sum);  writeln('noJlo)|(uTeJlbHbIe=',poz);END.2.
Program naconecto;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;randomize;for i:=1 to n do  begin    a[i]:=random(-5,5);    if a[i]<>0 then      begin        sum:=sum+1;      end    else      begin        break;      end;  end;writeln('cyMMa=',sum);END.