If d Then MsgBox ("Произведение равно " & Str(p)) _
Else MsgBox ("Произведение слишком велико!")
For i = 1 To N
S = S & Str(A(i)) & " " ‘Формируем строку из массива
Next i
MsgBox ("Массив: " & S)‘Выводим массив в окно вывода
End Sub
Контрольные вопросы
Что такое и для чего нужны в программе циклы?
В чём различия циклов с параметром, с предусловием и с постусловием?
Какие циклы с параметром вы знаете? В каких случаях их следует применять?
Какие циклы с предусловием вы знаете? В каких случаях их следует применять?
Какие циклы с постусловием вы знаете? В каких случаях их следует применять?
В чём преимущества и недостатки цикла «While-Wend» по сравнению с циклом «DoWhile-Loop»?
Что такое и зачем нужны массивы?
Почему применение динамических массивов может негативно повлиять на стабильность работы операционной системы?
Что такое размерность массива? Какое количество размерностей массива допустимо?
С чего начинается нумерация элементов массива?
Почему массивы целесообразно обрабатывать, используя алгоритм циклической структуры? Поясните на примере.
Индивидуальные задания
Сформируйте одномерный массив длиной N<=20, состоящий из целых чисел. Подсчитайте количество минимальных элементов.
Сформируйте одномерный массив длиной N<=20, состоящий из целых чисел. Определите, на каких позициях находятся максимальные элементы.
Сформируйте одномерный массив длиной N<=20, состоящий из целых чисел. Поменяйте первый минимальный элемент и последний максимальный элемент;
Одномерный массив длиной N<=25 заполните целыми числами из диапазона [x1..x2]. Определить позиции и количество элементов, значения которых лежат в диапазоне [y1..y2].
Одномерный массив заполните числами из диапазона [–x..x]. Переместите отрицательные элементы массива в конец, сдвинув остальные элементы влево.
Сформируйте массив целых чисел и определите количество и позиции четных, нечётных и нулевых элементов.
Сформируйте массив чисел из диапазона [-x,x] и определите суммы положительных и отрицательных чисел, не превышающих по модулю заданного значения.
Сформируйте массив чисел из диапазона [-x,x] и определите максимальное отрицательное и минимальное положительное число.
Сформируйте массив чисел из диапазона [-x,x]. Определите максимальное количество подряд идущих положительных элементов последовательности, не прерываемых ни нулями, ни отрицательными элементами. Напечатайте найденный фрагмент.
Сформируйте массив целых чисел и определите максимальное количество подряд идущих одинаковых элементов.
Сформируйте массив целых чисел и определите максимальное расстояние между парой одинаковых чисел.
Сформируйте массив целых чисел и определите количество совокупностей подряд идущих одинаковых элементов.
Сформируйте массив чисел и определите, является ли он упорядоченным по неубыванию.
Сформируйте массив чисел и вычислите среднее арифметическое, среднее геометрическое и среднее квадратическое.
Сформируйте массив целых чисел и выведите числа, присутствующие в массиве и частоты их появления.
Сформируйте массив чисел и выведите массив, состоящий из разностей между соседними элементами.
Сформируйте массив целых чисел и определите количество противоположных по знаку одинаковых по модулю чисел.
Сформируйте массив чисел и поменяйте местами элементы, отстоящие друг от друга на заданное число позиций.
Сформируйте массив чисел и определите позиции элементов, величина которых больше среднего значения.
Сформируйте массив чисел и отсортируйте его по возрастанию.
Сформируйте массив дат и выведите даты, приходящиеся на заданное число.
Выведите таблицы значений тригонометрических функций с заданным шагом.
Переведите заданное десятичное число в двоичную систему счисления.
Сформируйте таблицу номеров «счастливых» билетов, подсчитайте их количество и вероятность получить «счастливый» билет.
Вычислите число Эйлера с заданной точностью, используя ряд.
Введите строку и выведите отдельные слова в алфавитном порядке.
Введите целое число и выведите массив, состоящий из всех простых сомножителей заданного числа.
Введите строку и вычислите среднюю длину слов.
Введите строку и выведите слова, длина которых больше заданной.
Ввести строку и осуществить замену одного заданного слова на другое.
Примечание: Для формирования массивов используйте генератор случайных чисел.