Регистрация
elisaveta272002
06.04.2023 00:36
Информатика
Есть ответ 👍

составить блок схему плз​

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

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

lolkekcheburek2281
lolkekcheburek2281
4,7(31 оценок)

sub swap()

    dim r as range, a as variant

    dim i as integer, im as double, n as integer, t as double

    n = 15

    set r = range(cells(1, 1), cells(1, n))

    a = r

    im = 1

    for i = 2 to n

        if a(1, i) > a(1, im) then

            im = i

        end if

    next i

    t = a(1, im)

    a(1, im) = a(1, n)

    a(1, n) = t

    set r = range(cells(2, 1), cells(2, n))

    r = a

end sub

на лист в ячейки а1 - о1 заносим исходные 15 чисел

на этот же лист через проект помещаем макрос и запускаем.

результат будет в ячейках а2 - о2

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