<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк/столбцов в массиве:');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (K,L):=ReadInteger2('Укажите номера столбца и строки:');
var e:=a[L-1,K-1];
Writeln('S=',a.ElementsByRow.Where(t->t<e).Sum)
end.
<u>Пример</u>
Количество строк/столбцов в массиве: 7
79 9 98 -38 -9 -64 -69
90 -67 -76 -53 -83 -43 70
85 27 37 51 -75 9 98
-74 -39 -33 34 30 -61 -46
-81 59 -19 -40 3 -21 -71
-41 -21 18 -9 -2 25 -88
34 -84 -73 46 -14 -75 -37
----------------------------
Укажите номера столбца и строки: 5 2
S=-172
В первом C конечно, а во втором, Точно знаю что по такой можно (n+1/2)*n
1.<span> 256000 бит/с * 16 с = </span>4096000 бит
1 бпйт = 8 бит ⇒ 4096000 бит = 512000 байт
512000 байт / 1024 = 500 Кбайт
Ответ: 500
2. 2000 К байт = 2000 * 1024 * 8 = 16 384 000 бит
Скорость передачи - 1024000 бит/с
t = 16 384 000 / 1024000 = 16c
Ответ: 16
3. Скорость передачи - <span>128 000 бит/с
Размер файла - </span><span>375 Кбайт
Размер файла = 375 * 1024 * 8 = 3072000 бит
t = 3072000 бит / </span><span>128 000 бит/с = 24с
Ответ: 24 с
4.Скорость передачи = </span><span>512 Кбит/с
Время передачи = </span><span>4 минуты = 240 с
Размер файла = 512 Кбит/с * 240 с = 122880 Кбайт = 120 Мбайт
Ответ: 120 Мбайт
5. Скорость передачи = </span><span>64 Кбит/с
Время = 10 минут = 600 с
Размер файла = 64 Кбит/с * 600 с / 8 = 4800 Кбайт
Ответ: 4800
6. Размер файла = 5 Кбайт
Скорость передачи = 2048 бит/с
5 Кбайт = 5120 байт
Скорость второго соединения = 512 бит/с, т.е. в 4 раза меньше ⇒
5120 / 4 = 1280
Ответ: 1280
7. По аналогии с предыдущим заданием, делаем и это:
Скорость второго соединения в 8 раз меньше, чем первого.
16 Кбайт / 8 = 2 Кбайта = 2048 байта
Ответ: 2048
</span>
