Найти суммы максимального и минимального значений функции и их аргументов - Turbo Pascal

Формулировка задачи:

Используя функцию F, построить массив y с элементами yk=F(k). Выполнить для этого массива следующий поиск данных: F:=cos(sqr(x+1)-ABS(sin(2*x)-5.76). Найти суммы максимального и минимального значений функции и их аргументов.

Решение задачи: «Найти суммы максимального и минимального значений функции и их аргументов»

Листинг программы

uses crt;
const nmax=100;
var y:array[1..nmax] of real;
    n,k,kmn,kmx:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива Y от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив Y');
for k:=1 to n do
 begin
  y[k]:=cos(sqr(k+1)-abs(sin(2*k))-5.76);
  write(y[k]:8:2);
  if k=1 then
   begin
    kmn:=1;
    kmx:=1;
   end
  else if y[k]<y[kmn] then kmn:=k
  else if y[k]>y[kmx] then kmx:=k
 end;
writeln;
writeln('Минимальное значение функции=',y[kmn]:0:2,' аргумент=',kmn);
writeln('Максимальное значение функции=',y[kmx]:0:2,' аргумент=',kmx);
writeln('Сумма значений=',y[kmn]+y[kmx]:0:2,' сумма аргументов=',kmn+kmx);
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая обеспечивает работу с консолью.
Затем определяется константа nmax, которая ограничивает размер массива y до 100 элементов.
Создается переменная y типа array[1..nmax] of real, которая представляет собой массив для хранения значений функции.
Определяются три байтовых переменные n, k и kmn, которые будут использоваться для отслеживания текущего, минимального и максимального значений функции соответственно.
Запускается цикл repeat, который продолжается до тех пор, пока размер массива y не будет в диапазоне от 2 до nmax.
Внутри цикла запрашивается у пользователя размер массива y и выводится сообщение с этим размером.
Затем выводится сообщение о содержимом массива y.
Запускается цикл for, который проходит по всем элементам массива y от k=1 до n.
Внутри цикла вычисляется значение y[k] с помощью функции cos, квадратизирующей k+1, абсолютного значения sin(2*k)) и добавленного сдвига -5.76.
Выводится значение y[k] с точностью до 8 знаков после запятой.
Если k=1 (т.е. это первый элемент массива), то устанавливаются минимальное и максимальное значения функции и их аргументы kmn и kmx соответственно.
Если y[k] меньше y[kmn], то kmn устанавливается равным k.
Если y[k] больше y[kmx], то kmx устанавливается равным k.
После завершения цикла выводятся сообщения с минимальным и максимальным значениями функции и их аргументами.
Вычисляется сумма значений y[kmn] и y[kmx], а также сумма аргументов kmn и kmx.
Конец программы.