Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) приведена в таблице. Определите длину кратчайшего пути между пунктами B и C. Передвигаться можно только по дорогам, протяжённость которых указана в таблице. 1) 9
2) 10
3) 11
4) 12

const n=10; m=8;

var a:array[1..n,1..m] of integer;

b:array[1..n] of integer;

i, j: integer;

begin

writeln('Исходная матрица:');

for i:=1 to n do

begin

for j:=1 to m do

 begin

  a[i,j]:=random(20)-5;

  write(a[i,j]:4);

 end;

writeln;

end;

for i:=1 to n do

begin

j:=1;

while (j<=m)and(a[i,j]>0) do j:=j+1;

b[i]:=j-1;

end;

writeln('Полученный массив:');

for i:=1 to n do write(b[i]:3);

writeln;

end.

Пример:

Исходная матрица:

 14  13   1   9   9   8  -5  10

 13  -4  -2   7   1   5  10  -5

  3   2   6  14  12   5   5  11

  6  -2   8   3   3  -1  -4   8

  9   0  -1  -3   2   6  12   8

 -1  -2   0   3   4  -3  10   5

  8  11  -3   2  12   1   8   7

 13   7  13  11   8  -3   6   1

 11   6   1  -1  14   7  -2   5

  0  13  -3   4  14   2   2   3

Полученный массив:

 6  1  8  1  1  0  2  5  3  0

Нужно определить, сколько времени будет передаваться файл объемом 10 Мбайт по каналу со скоростью передачи данных 215 бит/с; к этому времени нужно добавить задержку файла у Васи (пока он не получит 1024 Кбайт данных по каналу со скоростью 219 бит/с).

Переведём объём информации в Мб в биты: Q = 10 Мб = 10 * 220 байт = 10 * 223 бит.

Время задержки:  = 1024 кб / 219 бит/с = 2(10 + 10 + 3) - 19 c = 24 c.

Время скчивания данных Петей:  = 10 * 223 бит / 215 бит/с = 10 * 28 c.

Полное время:   = 10 * 28 c + 24 c = (256 * 10 + 16) c = 2576 c.

ответ: 2576.