Отчет по лабораторным работам в программе Pascal

Задача
Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы
Постановка задачи
Создать меню из 3-х задач. Из 3-х предложенных вариантов выбрать один корректный и выполнить задание. При невозможности выполнить задание выдать сообщение о неверном вводе или недопустимых данных. Выход из программы осуществить из меню
Задача
Массив Z(15) заполнить целыми случайными числами в диапазоне (0,100). Найти сумму элементов S, расположенных между максимальным MAX и минимальным MIN элементами массива. Вывести S,Z,MAX,MIN
Массив В(20) заполнить целыми случайными числами в диапазоне (0,20). Массив-маску М(20) заполнить нулями и единицами случайным образом. Найти среднее арифметическое SR элементов массива B по нулям массива М. Вывести В,М,SR
Матрицу R(9.5) заполнить целыми случайными числами в диапазоне (-100,100). Заполнить массив С(?) номерами таких строк R, сумма элементов которых S(I)>0. Массив С заполнить плотно. Вывести R,S,C
Задача
Матрицу Q(7, 9) заполнить целыми случайными числами в диапазоне (-20, 20). Найти минимальный и максимальный элементы в каждой строке и количества элементов, находящихся между ними. Матрицу Q и результаты счета вывести
Задача
Составить подпрограмму – процедуру POISK (A,M,N,R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать процедуру для обработки двух матриц P(5.4) и G(7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2 ,Q
Задача
Составить подпрограмму – функцию POISK (A,M,N,R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать функцию для обработки двух матриц P(5.4) и G(7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2 ,Q
Задача
Составить подпрограмму – функцию POISK (A,M,N,R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать функцию для обработки двух матриц P(5.4) и G(7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2 ,Q