Динамические массивы

№

вар.

Задача

1

Ввести в Memo целые числа. Создать из них массив. Вычислить сумму

чётных элементов массива.

2

Ввести целое число N и массив из N вещественных чисел. Определить

количество отрицательных элементов массива.

3

Ввести целое число N. Создать массив из N вещественных чисел

.Вычислить произведение элементов, модуль которых меньше 7.

4

Ввести в Memo вещественные числа. Создать из них массив Определить

наибольший элемент массива.

5

Ввести целое число N и массив из N целых чисел. Определить наимень-

ший элемент массива.

6

Ввести в Memo вещественные числа. Создать из них массив. Определить

среднее арифметическое элементов массива.

7

Ввести в Memo вещественные числа. Создать из них массив. Определить

количество неотрицательных элементов массива.

8

Ввести целое число N и массив из N целых чисел. Вычислить сумму

элементов массива, кратных 3.

9

Ввести целое число N. Создать массив из N целых чисел. Определить

индекс наибольшего элемента массива.

10

Ввести в Memo целые числа. Создать из них массив. Вычислить произве-

дение чётных элементов массива

11

Ввести целое число N и массив из N вещественных чисел. Определить количество элементов массива, больших среднего арифметического

массива.

12

Ввести в Memo целые числа. Создать из них массив. Определить индекс

наименьшего элемента массива.

13

Ввести в Memo вещественные числа. Создать из них массив. Отсортиро-

вать массив по возрастанию.

14

Ввести целое число N и массив из N вещественных чисел. Отсортировать

массив по убыванию.

15

Ввести в Memo целые числа. Создать из них массив. Определить индекс

первого чётного элемента массива.

16

Ввести целое число N и массив из N вещественных чисел . Определить

индекс последнего отрицательного элемента массива.

17

Ввести целое число N. Создать массив из N вещественных чисел. Вычис-

лить сумму минимального и максимального элементов.

№

вар.

Задача

18

Ввести в Memo вещественные числа. Создать из них массив. Вычислить

произведение минимального и максимального элементов.

19

Ввести целое число N и массив из N целых чисел. Определить, есть ли в

массиве число 20.

20

Ввести в Memo вещественные числа. Создать из них массив. Определить

индекс второго положительного элемента массива.

21

Ввести в Memo вещественные числа. Создать из них массив. Переставить

элементы массива в обратном порядке.

22

Ввести целое число N и массив из N целых чисел. Определить среднее

арифметическое элементов массива, не кратных 3.

23

Ввести целое число N. Создать массив из N целых чисел. Поменять

местами первый и максимальный элементы массива.

24

Ввести в Memo целые числа. Создать из них массив. Поменять местами

последний и максимальный элементы массива.

25

Ввести целое число N и массив из N вещественных чисел. Поменять

местами первый и минимальный элементы массива.

26

Ввести в Memo целые числа. Создать из них массив. Поменять местами

последний и минимальный элементы массива.

27

Ввести целое число N и массив из N целых чисел. Определить количество

положительных элементов в первой половине массива

28

Ввести целое число N Создать массив из N целых чисел. Вычислить

сумму элементов из промежутка (-5, 7].

29

Ввести в Memo целые числа. Создать из них массив. Вычислить произве-

дение элементов из промежутка [2, 8).

30

Ввести целое число N и массив из N вещественных чисел. Определить

количество элементов из промежутка (-15, 4).

№

вар.

Задача

1

Ввести в Memo целые числа. Создать массив из их чётных элементов.

Вычислить сумму положительных элементов массива.

2

Ввести в Memo целые числа. Создать массив из этих чисел, пока не встре-

титься число 0. Вычислить сумму положительных элементов массива.

3

Ввести в StringGrid массив из 10 целых чисел. Создать два новых массива

– из четных и нечётных элементов исходного массива. Определить, в каком массиве больше элементов.

4

Ввести массив из 12 вещественных чисел. Создать новый массив из

элементов исходного, в который не включать элементы, которые по

№

вар.

Задача

модулю больше 10. Определить количество положительных элементов

нового массива.

5

Ввести в Memo целые числа. Создать массив из нечётных чисел Memo.

Вычислить произведение положительных элементов массива.

6

Ввести в Memo вещественные числа. Создать массив из этих чисел, пока не встретится число 10. Вычислить сумму отрицательных элементов

массива.

7

Ввести в StringGrid массив из 10 целых чисел. Создать два новых массива

– из положительных и отрицательных элементов исходного массива. Определить суммы элементов каждого массива.

8

Ввести массив из 9 вещественных чисел. Создать новый массив из эле-

ментов исходного, которые по модулю больше 10. Вычислить среднее арифметическое элементов нового массива.

9

Ввести в Memo вещественные числа. Создать массив из положительных чисел Memo. Определить, является ли массив упорядоченным по возрас-

танию.

10

Ввести в Memo целые числа. Создать массив из этих чисел до первого отрицательного числа. Определить, является ли массив упорядоченным

по убыванию.

11

Ввести в StringGrid массив из 13 вещественных чисел. Создать два новых массива: в первый записать элементы исходного массива, которые по модулю больше 5, а во второй – остальные. Определить, в каком массиве

больше сумма элементов.

12

Ввести массив из 15 вещественных чисел. Создать новый массив из элементов исходного, в который не включать элементы, попадающие в промежуток (-3,7). Определить произведение отрицательных элементов

нового массива.

13

Ввести в Memo целые числа. Создать массив из чисел Memo, которые не

делятся на 5. Определить минимальный элемент массива.

14

Ввести в Memo вещественные числа. Создать массив из этих чисел, пока

не встретится число 33. Определить максимальный элемент массива.

15

Ввести в StringGrid массив из 13 вещественных чисел. Создать два новых массива – из положительных и отрицательных элементов исходного

массива. Поменять местами максимальные элементы новых массивов.

16

Ввести массив из 9 вещественных чисел. Создать новый массив из эле- ментов исходного, которые по модулю не больше 12. Поменять местами

минимальный и максимальный элементы нового массива.

17

Ввести в Memo вещественные числа. Создать массив из чисел Memo,

которые попадают в интервал [2,13]. Определить, есть ли в массиве числа, большие 10.

18

Ввести в Memo целые числа. Создать массив из чисел Memo, которые не

делятся на 10. Определить количество нечётных элементов массива.

№

вар.

Задача

19

Ввести в StringGrid массив из 14 вещественных чисел. Создать два новых массива: первый – из элементов исходного массива, которые больше

первого элемента, второй – их остальных. Определить, в каком массиве больше произведение элементов.

20

Ввести массив из 11 вещественных чисел. Создать новый массив из

элементов исходного, не превышающих среднее арифметическое массива. Определить наименьший положительный элемент нового массива.

21

Ввести в Memo целые числа. Создать массив из чисел Memo, располо-

женных между минимальным и максимальным элементами. Вычислить сумму положительных элементов массива.

22

Ввести в Memo вещественные числа. Создать массив из этих чисел, пока не встретится отрицательное число. Определить индекс наименьшего

элемента массива.

24

Ввести массив из 9 вещественных чисел. Создать новый массив из эле- ментов исходного, которые по модулю больше 10. Вычислить среднее

арифметическое элементов нового массива.

25

Ввести в Memo вещественные числа. Создать массив из положительных чисел Memo. Определить, есть ли в массиве элементы из промежутка (3,

12).

26

Ввести в Memo целые числа. Создать массив из этих чисел до первого

числа, кратного 10. Определить, является ли массив симметричным (то есть первый элемент равен последнему, второй – предпоследнему и т.д.).

27

Ввести в StringGrid массив из 15 вещественных чисел. Создать два новых массива: в первый записать элементы исходного массива, которые по модулю меньше 20, а во второй – остальные. Поменять местами макси-

мальный элемент первого массива и минимальный элемент второго.

28

Ввести массив из 14 вещественных чисел. Создать новый массив из элементов исходного, попадающие в промежуток (-5,10]. Определить

наибольший по модулю элемент массива.

29

Ввести в Memo целые числа. Создать массив из чисел Memo, которые

делятся на 2 и на 3. Определить индекс максимального по модулю эле- мента массива.

30

Ввести в Memo вещественные числа. Создать массив из этих чисел, пока

не встретится число, большее 50. Определить индекс последнего отрица- тельного элемента массива.