Индивидуальные задания

1. Дан массив из 50 вещественных чисел. Определить сколько из них отличны от последнего.

2. Сформировать массив из 50 элементов вещественного типа генератором случайных чисел. Вывести минимальный элемент и его номер.

3. Создать одномерный массив, состоящий из элементов исходного массива, делящихся на 5.

4. Создать одномерный массив, состоящий из нечетных элементов исходного массива.

5. Ввести одномерный массив, состоящий из 20 целых чисел. Поменять местами последний и максимальный элементы.

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

7. Найти среднеарифметическое одномерного массива и вывести элементы, значение которых больше среднеарифметического и их номера.

8. В массиве из 10 целых чисел найти наибольший элемент и поменять его местами с первым.

9. Ввести одномерный массив из 20 элементов целого типа. Определить произведение отрицательных.

10. Дано 100 чисел. Напечатать сначала все положительные, затем все отрицательные по 7 чисел в строке.

11. Перемножить два двухмерных массива.

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

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

14. Найти произведение двух максимальных и разность двух минимальных элементов двумерного массива.

15. Если максимальный элемент одномерного массива имеет четный порядковый номер, то подсчитать количество положительных элементов массива, иначе - произведение нечетных элементов массива.

16. Вывести на печать индексы и значения положительных элементов четных строк двумерной матрицы.

17. Дан одномерный массив А[N], a[1], a[2],..., a[n] - целые. Заменить все большие 7 члены массива числом 7. Найти количество таких членов.

18. Ввести двумерный массив 3х3 элементов, найти произведение элементов массива.

19. Ввести массив из 10 элементов, найти произведение элементов массива.

20. Ввести двумерный массив из NхM элементов, найти среднее арифметическое элементов массива.

21. Ввести массив из n элементов, найти среднее арифметическое элементов массива.

22. Дан двумерный массив NхM элементов, найти количество положительных чисел.

23. Дан массив из n элементов, найти количество четных и нечетных чисел в массиве.

24. Дан двумерный массив NхM элементов, найти количество четных и нечетных чисел в массиве.

25. Дан массив из n элементов. Определить, сколько элементов массива больше заданного числа.

26. Дан массив из NхM элементов. Определить, сколько элементов массива больше заданного числа.

27. Дан массив из n элементов. Найти сумму элементов с четными индексами.

28. Дан массив из NхM элементов. Найти сумму элементов каждой строки.

29. Дан массив из n элементов. Найти произведение элементов с нечетными индексами.

30. Дан массив из NхM элементов. Найти сумму элементов каждого столбца.

В программах используется стандартный модуль CRT, в котором применяются следующие процедуры: CLRSCR - очищает экран; RANDOMIZE - инициализирует генератор случайных чисел; RANDOM(K) - генерирует случайное число в диапазоне 0 .. K. Если число не указывать, то функция RANDOM будет генерировать вещественные числа в диапазоне 0 .. 1. Для получения случайных чисел в диапазоне -128 .. K необходимо задать конкретное значение K.

ЛАБОРАТОРНАЯ РАБОТА 5

Тема работы: Файловые переменные и типы в языке Турбо Паскаль.

Цель работы: Приобретение и закрепление практических навыков в составлении программ на языке Паскаль с файловыми переменными и типами.