Увы, нет.
...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:
var a:array [1..n] of real; Procedure ab(var b:array [1..n] of real);
К сожалению переменная и формальный параметр не одного типа.
Стоит использовать Type:
type ba= array [1..n] of real; var a: ba; Procedure ab(var b:ba);
t ≈ 17c
Объяснение:
Ну, первым делом нам надо перевести 259 килобайт в биты, мы знаем, что в одном килобайте 1024 байта, а в одном байте 8 бит, то есть:
259 * 1024 * 8 = 2121728 бит
Это мы узнали объём сообщения в битах, теперь найдем время, которое понадобится для передачи этого сообщения с модема, с пропускной в 128000 бит/с. "Бит/с" нам показывает, сколько бит информации может передать этот модем за 1 секудну, ну это логично, теперь чтобы найти время, нам надо объём сообщения поделить на пропускную модема:
t = 2121728 бит / 128000 бит/с ≈ 16,6с
Ах, да, надо дать ответ целым числом, тогда t ≈ 17c
