Вычислить элемент массива Т состоящий из 8 элементов - Turbo Pascal

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

Вычислить элемент массива Т состоящий из 8 элементов:

Решение задачи: «Вычислить элемент массива Т состоящий из 8 элементов»

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

const
  n = 8;
var
  T : array[1..n] of real;
  i : integer;
begin
  for i := 1 to n do
  begin
    if cos(i) >= 0.3 then T[i] := ln(i + 1)
    else T[i] := 2 * ln(i + 1) / ln(10);
    write(T[i]:6:2)    
  end;
  readln
end.

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

В начале кода объявляются две переменные: n и T. Переменная n инициализируется значением 8, а переменная T объявляется как массив из 8 элементов типа real.
Далее, в цикле for i := 1 до n (где i - индекс элемента массива T, а n - длина массива) выполняется следующий блок кода:
- Если значение функции cos(i) больше или равно 0.3, то значение T[i] присваивается значению функции ln(i + 1).
- В противном случае, значение T[i] присваивается значению, равному 2 * ln(i + 1) / ln(10).
- Значение T[i] выводится на экран с помощью функции write(T[i]:6:2), где :6:2 указывает, что число должно быть представлено в формате с 6 знаками после запятой и 2 знаками до запятой.
После завершения цикла for, программа ожидает ввода с помощью функции readln().