Написать программу, которая считает массив с листа и выполнит 3 операции из следующих

@Mozzys · Регистрация: 18.01.2014

Студворк — интернет-сервис помощи студентам

Задание:
Введите в ячейки Excel квадратную матрицу произвольных чисел. Сделайте программу, которая считает массив с листа и выполнит 3 операции из следующих:

1. Найти максимальный элемент массива
2. Найти минимальный элемент массива
3. Вычислить количество отрицательных элементов массива

Можете написать простым VBA языком, что бы я понял. За ранее спасибо!

Добавлено через 14 минут

PureBasic
1
2
3
4
5
6
7
8
9
For i = 1 To 3
            Min = 999999
        Next
     
        For i = 1 To 3
            If a(i) < Min Then Min = a(i)
        Next
 
        MsgBox ("Минимум: " & Min)

Вот код для минимума мой, но и то не выводит..

@Hugo121 · 28.04.2014, 16:38

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Sub tt()
    Dim a(), el, min_, max_, cnt&
    a = [a1].CurrentRegion.Value
    
    'min_ = Application.Min(a)    'это было бы слишком просто...
    'max_ = Application.Max(a)    'это было бы слишком просто...
 
    max_ = -10000000000#: min_ = 10000000000#
 
    For Each el In a
        If el < min_ Then min_ = el
        If el > max_ Then max_ = el
        If el < 0 Then cnt = cnt + 1
    Next
    MsgBox min_ & "/" & max_ & "/" & cnt
    
End Sub

@Mozzys · 28.04.2014, 16:43 **[ТС]**

Если бы все просто.. Я начал только изучать

А можно заменить более простым языком это:

PureBasic
1
a = [a1].CurrentRegion.Value

PureBasic
1
For Each el In a

И почему при:

PureBasic
1
max_ = -10000000000#: min_ = 10000000000#

используется _ и #

@Hugo121 · 28.04.2014, 16:47

Visual Basic
1
a = [a1:c3].Value

# сами появляются, мне было лень искать макс/мин числа, просто поставил сколько дало нулей до появления #

Можно написать

Visual Basic
1
    max_ = -1E+32: min_ = 1E+32

For Each более простым будет сложнее. Это значит "для каждого" - английский что ли не учите?

@Mozzys · 28.04.2014, 16:49 **[ТС]**

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Mozzys 0 / 0 / 0 Регистрация: 18.01.2014 Сообщений: 22
	28.04.2014, 16:49 [ТС]
	Спасибо! 0