написать код по паскалю использовать надо операторы While и Repeat. Задания: 1. Написать программу, табулирующую функцию f(x)=1/sin(x)+k*ln(x-a) в заданном пользователем диапазоне с указанным шагом. Для тех значений x, в которых функция не существует, вместо значения f(x) выводить прочерк. При решении задачи использовать цикл REPEAT … UNTIL.
2. Написать программу, определяющую максимальное значение в заполненном пользователем массиве вещественных чисел размерностью N среди элементов, значение которых находится в указанном диапазоне [A, B]. Массив вывести на экран.
3. Написать программу, подсчитывающую сумму элементов в заполненной пользователем квадратной целочисленной матрице размерностью NxN, находящихся ниже основной диагонали. Исходную матрицу вывести на экран.

1. Написать программу, табулирующую функцию f(x)=1/sin(x)+k*ln(x-a) в заданном пользователем диапазоне с указанным шагом. Для тех значений x, в которых функция не существует, вместо значения f(x) выводить прочерк. При решении задачи использовать цикл REPEAT … UNTIL.

2. Написать программу, определяющую максимальное значение в заполненном пользователем массиве вещественных чисел размерностью N среди элементов, значение которых находится в указанном диапазоне [A, B]. Массив вывести на экран.

3. Написать программу, подсчитывающую сумму элементов в заполненной пользователем квадратной целочисленной матрице размерностью NxN, находящихся ниже основной диагонали. Исходную матрицу вывести на экран.

Вот ответ надеюс

Код ниже

Объяснение:

1. x := Random(91) + 15;

2. if x = 1 then

       x := x + 3

      else x := x*2

3. if k >= m then

      max := k

   else max := m