Составить блок-схему и программу для следующих : зная температуру воздуха, определить вид осадков (дождь при t> 0 или снег при t< 0)

155

176

Посмотреть ответы 1

Ответы на вопрос:

Мегамозг0511

Информатика

4,6(83 оценок)

Dim m as integer cls input "m=", m dim a(1 to m, 1 to m) as integer randomize timer for i = 1 to m for j = 1 to m a(i, j) = 50 * rnd - 25 print using "####"; a(i, j); next j print next i dim p as double, s as integer dim b(1 to m) as double p = 1 for i = 1 to m s = 0 for j = 1 to m if a(i, j) > 0 then p = p * a(i, j) s = s + a(i, j) next j b(i) = s / m next i print "p="; p print "vector" for i = 1 to m print using "###.#####"; b(i) next i пример m=5 3 -12 -2 -3 -4 11 -13 21 20 14 21 5 18 -20 -1 -3 24 -24 -19 8 -14 -24 -7 -2 -3 p= 70413235200 vector -3.60000 10.60000 4.60000 -2.80000 -10.00000