Дан одномерный целочисленный массив в состоящий из 16 элементов найти максимальный элемент массива и его порядковый номер.

Dim b(16) cls for i = 1 to 16 input "input element", b(i) next i  max = b(1)   imax = 1  for i = 1 to 16 if b(i) > max then max = b(i)  imax = i end if next i for i = 1 to 16 print b(i); next i  print   print max, imax

Sub z()       range(cells(1, 1), cells(100,       n1=5       n2=3       n3=4       k = 1       a = initmatrix(n1, k, 1)       k = k + n1 + 2       b = initmatrix(n2, k, 1)       k = k + n2 + 2       c = initmatrix(n3, k, 1) end sub function initmatrix(n, cx, cy)       redim a(n, n)       for i = lbound(a, 1) to ubound(a, 1)               for j = lbound(a, 2) to ubound(a, 2)                       a(i, j) = rnd * 200 - 100                       cells(cx + i, cy + j) = a(i, j)               next       next       cells(cx, cy + n + 1) = "positiveaverage ="       cells(cx, cy + n + 2) = positiveaverage(a)       initmatrix = a end function function positiveaverage(a)       for i = lbound(a, 1) to ubound(a, 1)               for j = lbound(a, 2) to ubound(a, 2)                       if a(i, j) > 0 then                               s = s + a(i, j)                               k = k + 1                       end if               next       next       positiveaverage = s / k end function

А) v = d * t * i * k v - информационный объем файла d - частота дискретизации t - время звучания i - глубина кодирования 1 сигнала k - количество каналов d1 = 8 кгц = 8000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i1 = 16 бит = 2 байта v1 = 8000 гц  * 60 c * 2 байта * 1  =  960000 байт =  937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла d2 = 24 кгц = 24000 гц t = 1 мин = 60 секунд k = 1 канал (моно-) i2 = 16 бит = 2 байта v2 = 24000 гц  * 60 c * 2 байта * 1 =  2880000 байт =  2812,5 килобайт =  2,75 мегабайт -  информационный объем 2 звукового файла детская песня - колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 мб и больше 1 объема на 1,18 мб песня валентины толкуновой тебя любила - 1,05 мб больше 1 объема на 0,14  мб, меньше второго объема на 1,7 мб