М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Moldir94
Moldir94
20.04.2022 02:17 •  Информатика

Дана последовательность из N натуральных чисел из текстового файла. Найти три максимальных значения этой последовательности. Вывести в текстовый файл. Например:
Файл input.txt
4
6
7
3
5
1

Вывод output.txt
7 6 5

👇
Открыть все ответы
Ответ:
sofiya13031
sofiya13031
20.04.2022
Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub
4,6(7 оценок)
Ответ:
JuMpEr104
JuMpEr104
20.04.2022
А-Я (33 символа), символы русского алфавита
2) 36 согласных звуков: [б], [б'], [в], [в'], [г], [г'], [д], [д'], [ж], [з], [з'], [й'], [к], [к'], [л], [л'], [м], [м'], [н], [н'], [п], [п'], [р], [р'], [с], [с'], [т], [т'], [ф], [ф'], [х], [х'], [ц], [ч'], [ш], [щ'] 
6 гласных звуков: [а], [у], [о], [ы], [и], [э], звуковые фонемы русского языка
3) A-Z (26 символов), символы латинского алфавита
4) 0123456789, символы арабской записи цифр
5) аденин (А), гуанин (G), цитозин (С), тимин 
(T), азотистые основания участвующие в формировании дизоксирибонуклеиновой кислоты
6) 01, сигнал низкого и высокого напряжения используемый для передачи данных
4,4(13 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ