snakes28 пробуй:

Задача 2. Создать программу, в которой одномерный массив из 5 вещественных чисел типа Real задается типизированной константой. Включить в программу процедуру, выводящую значения элементов массива на экран в форматном виде, отводя под целую часть 8 знакомест, а под дробную 3. Включить процедуру, проверяющую являются ли элементы массива убывающей последовательностью. Включить в программу функцию, которая выводит на экран значение первого элемента массива, с дробной частью начинающейся с цифры 1. Или сообщает, что все элементы в массиве имеют дробные части, которые начинаются с других цифр.

Задача 5. Добавить в задачу 1 функцию, возвращающую значение элемента, предшествующего элементу, индекс которого вводит пользователь. Если пользователь вводит индекс, равный минимально возможному индексу, то возвратить значение последнего элемента массива. Следить, чтобы вводимый индекс элемента был в допустимом диапазоне значений.

Задача 13. Создать программу с процедурой, которая задает матрицу, представляемую двумерным массивом целых чисел типа Byte, размером 5х5  и функцию, которая находит сколько четных элементов находится в каждой строке матрицы и их индексы (использовать побочный эффект функции)

Задача 24. Создать программу с процедурой, в которой попросить вводить символы, используя для этого функцию ReadKey, на экран вместо этих символов выводить символ ‘*’ до тех пор, пока не введем символ q или Q и выводить на экран строку, сформированную из вводимых символов.

Задача 33. Создать программу с функцией, которая возвращает номер позиции последнего вхождения в строку фрагмента. Например, введена строка: Карл у Клары украл кораллы, а Клара у Карла украла кларнет. Ищем вхождение в эту строку подстроки Карл. Функция должна возвращать позицию 39, а не позицию 1

Задача 39. Создать программу, с процедурой дешифровки строки с двумя параметрами. В первом параметре передавать строку для дешифровки, во втором параметре передавать перестановку 26 латинских букв алфавита. Принцип дешифрации состоит в следующем. Если некоторая буква первого параметра является k-ой буквой во втором параметре процедуры, то вместо нее должна быть взята буква из k-ой позиции в обычном алфавите. Вывести на экран зашифрованную строку, ее расшифровку и второй параметр процедуры («новый алфавит»).

Задача 44. Создать программу, в которой из любого, созданного ранее текстового файла, где хранятся целые числа типа Integer, считывать всю информацию и сохранить в другой текстовый файл только те числа, которые составляют наибольший интервал возрастания. Использовать функцию, в которой подсчитать число элементов в этом интервале. Вывести всю информацию на экран.

Задача 48 Создать программу, в которой из любого, созданного ранее текстового файла, где хранятся целые числа типа Integer, считывать всю информацию и сохранить в другой текстовый файл числа по следующему правилу: сохранять в файле только положительные числа. Дописать, созданный файл этими же числами, но отсортированными по возрастанию Использовать процедуру, сортирующую элементы, сохраненные в новом файле. Вывести всю информацию на экран.

Задача 54. Создать программу с процедурой, в которой считать информацию из типизированного файла символов, вывести ее на экран, и записать в другой типизированный файл, найти первый пробел и удалить всю информацию из нового файла после первого пробела, считать из нового файла символы и вывести их на экран.

Задача 64. Аналогично условию задачи 61, но в процедуре искать и выводить на экран и в другой текстовый файл книги одного автора, какого именно определяет пользователь.

Задача 69 Аналогично условию задачи 61, но в процедуре выбирать книги в жестком переплете, написанных Новичковым, изданных после 1980 года и информацию о книгах сохранять в новом текстовом файле.

Задача 74. Аналогично условию задачи 71, но в текстовый файл сохранить информацию о фирмах ( название, степень надежности ). Сортировать по алфавиту названия фирм или по степени надежности, в зависимости от желания пользователя.

Задача 86. Создать текстовый файл вещественных чисел. Считать информацию в список, расположив элементы по возрастанию, выводя на экран информационные части, в форматном виде, под все число 10 знакомест, под дробную часть 2 знакоместа, и порядковые номера элементов списка, отведя под каждое 4 знакоместа. Добавить в список новый элемент, введя информационную часть с экрана, снова распечатать список. Удалить весь список, тоже выводя на экран информацию.

Задача 91. В текстовом режиме ввести число окружностей и их радиус. Перейти в графический режим работы, вывести окружности на экран, меняя цвет прорисовки каждой. Окружности должны полностью помещаться на экране

Задача 98. Заполнить прямоугольную область экрана точками разного цвета, задавая цвет случайным образом и запоминая цвет и координаты точки в массиве, в графическом режиме. До тех пор пока не нажата клавиша, закрашивать черным цветом точки, случайный цвет которых, выбранный повторно совпадает с первоначально выбранным цветом.