<span>Для начала вычислим скорость данных по каналу: 3072Кбайт/5 мин=614,4 Кбайт/мин. Следовательно, файл размером 6144 Кбайт можно передать за 6144/614,4=10 мин</span>
Только программы (без примеров):
А)
CLS
DIM a(1 TO 10) AS INTEGER
PRINT "Введите 10 чисел"
FOR i = 1 TO 10
INPUT a(i)
NEXT i
max = a(1)
FOR i = 2 TO 10
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END
Б)
CLS
INPUT "Введите количество элементов массива"; n
DIM a(n)
FOR i = 1 TO n
INPUT "Введите значение элемента: "; a(i)
NEXT i
max = a(1)
FOR i = 2 TO n
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END