| №
| Задание
| Ввод
| Вывод
|
| 1.
| Вычислить сумму элементов числового массива A = (a1, a2,..., an)
| ListBox
| Label
|
| 2.
| Найти наибольший элемент заданного одномерного числового массива и определить его номер.
| Memo
| Label
Edit
|
| 3.
| Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала идут положительные числа, затем нулевые, и затем отрицательные из X.
| ListBox
| Memo
|
| 4.
| Определить, является ли заданная последовательность чисел a1, a2,..., an монотонно убывающей.
| Memo
| Label
|
| 5.
| Вычислите сумму Z = a1 + a2,+...,+ an. Вычисления прекратите, когда значение Z превысит заданное значение A.
| Memo
Edit
| Label
|
| 6.
| Проверьте, есть ли в заданной целочисленной последовательности a1, a2,..., an элементы, равные нулю. Если есть, найдите номер первого из них, если нет – выдайте соответствующий текст.
| ListBox
| Label
|
| 7.
| Выясните, имеются ли в заданном массиве A(N) два подряд идущих нулевых элемента.
| ListBox
| Edit
|
| 8.
| Выясните, имеются ли в заданном целочисленном массиве A(N) три подряд идущих элемента одного знака.
| Memo
| Label
|
| 9.
| Имеется последовательность чисел a1, a2,..., an. Найдите сумму первых из них (считая слева направо), произведение которых не превышает заданного числа М.
| ListBox
Edit
| Label
|
| 10.
| Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).
| Memo
| Label
Edit
|
| 11.
| Заданные массивы X(N) и Y(N) преобразуйте по правилу: большее из xi и yi примите в качестве нового значения xi, а меньшее — в качестве нового значения yi.
| Memo
Memo
| ListBox
ListBox
|
| 12.
| Элементы заданного массива B(N) перепишите в новый массив A(N) в обратном порядке.
| Memo
| ListBox
|
| 13.
| В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествующие его максимальной компоненте (первой по порядку, если их несколько).
| Memo
| ListBox
|
| 14.
| Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.
| Memo
| Label
|
| 15.
| В заданном массиве A(N) поменяйте местами наибольшие и наименьшие элементы.
| Memo
| ListBox
|
| 16.
| В заданном массиве A(N) определите количество элементов, которые меньше заданного значения.
| ListBox
Edit
| Label
|
| 17.
| В заданном массиве Y(N) положительные элементы уменьшите вдвое, а отрицательные замените на значения их индексов.
| Memo
| ListBox
|
| 18.
| Выведите номера элементов заданного массива A(N), удовлетворяющих условию 0 < yi < 1.
| ListBox
| Label
|
| 19.
| Все элементы заданного вектора A(N), начиная с первого по порядку положительного элемента, уменьшите на единицу.
| Memo
| ListBox
|
| 20.
| Вычислить сумму всех чисел Фибоначчи, которые не превосходят заданного натурального числа М и вывести эти числа. Числа Фибоначчи (Fi) определяются по формулам F0 = F1 = 1; Fi = Fi –1 + Fi –2 при i = 2, 3,... (каждое очередное число равно сумме двух предыдущих).
| Edit
| Label
ListBox
|
| 21.
| Включить заданное число D в массив A(N), упорядоченный по возрастанию, с сохранением упорядоченности.
| Edit
Memo
| ListBox
|
