Регистрация Спросить otvet5GPT
Rarete
06.02.2023 20:21
Информатика
Есть ответ 👍

Как воду текущую из крана сделать источником информации?

144
419
Посмотреть ответы 2

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

bzhx
bzhx
4,6(47 оценок)
Может покрасить ее, а она перетечет в другой кран и сообщит например что все хорошо)
jenja117
jenja117
4,4(53 оценок)
Sub ()dim a(1 to 4, 1 to 4) as integerdim b(1 to 3, 1 to 3) as integerrandomizefor i = 1 to 4    for j = 1 to 4        a(i, j) = int((10 * rnd) + 1)        cells(i, j) = a(i, j)    next jnext ifor i = 1 to 3    for j = 1 to 3        b(i, j) = int((10 * rnd) + 1)        cells(i + 5, j) = b(i, j)    next jnext icall obrabotkaa(a)call obrabotkab(b)call result(a, b)end subsub obrabotkaa(a)collumnmax = 0collumnmin = 0summmax = 0summmin = 999for j = 1 to 4summ = 0    for i = 1 to 4        summ = summ + a(i, j)    next i    if summ > summmax then        summmax = summ        collumnmax = j    end if    if summ < summmin then        summmin = summ        collumnmin = j    end ifnext jfor i = 1 to 4    temp = a(i, collumnmax)    a(i, collumnmax) = a(i, collumnmin)    a(i, collumnmin) = tempnext iend subsub obrabotkab(b)collumnmax = 0collumnmin = 0summmax = 0summmin = 999for j = 1 to 3summ = 0    for i = 1 to 3        summ = summ + b(i, j)    next i    if summ > summmax then        summmax = summ        collumnmax = j    end if    if summ < summmin then        summmin = summ        collumnmin = j    end ifnext jfor i = 1 to 3    temp = b(i, collumnmax)    b(i, collumnmax) = b(i, collumnmin)    b(i, collumnmin) = tempnext iend subsub result(a, b)for i = 1 to 4    for j = 1 to 4        cells(i, j + 5) = a(i, j)    next jnext ifor i = 1 to 3    for j = 1 to 3        cells(i + 5, j + 5) = b(i, j)    next jnext iend sub

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS