Выведите на экран положительные элементы массива, уменьшенные в 19 раз - Turbo Pascal

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

2. Сформируйте одномерный массив из n элементов. Выведите его на экран в строку. Затем выведите на экран положительные элементы массива, уменьшенные в 19 раз.

Решение задачи: «Выведите на экран положительные элементы массива, уменьшенные в 19 раз»

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

program pr;
 
var
  i, n: integer;
  a: array [1..100] of real;
 
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := -10 + random(21);      // диапазон ставь любой(здесь от -10 до 10)
    write(a[i]:3);
  end;
  writeln;
  for i := 1 to n do
    if a[i] > 0 then
      write(' ', a[i] / 19:3:2);
end.

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

В данном коде на Turbo Pascal происходит следующее:

Программа запрашивает у пользователя размер массива с помощью функции readln.
Создается массив типа real размером n.
В цикле for перебираются все элементы массива от 1 до n.
Для каждого элемента массива вычисляется значение a[i] = -10 + random(21), где random(21) генерирует случайное число в диапазоне от 0 до 20.
Значение каждого элемента выводится на экран с помощью функции write.
Если значение элемента массива больше 0, то оно уменьшается в 19 раз и выводится на экран с пробелом.
После завершения цикла for выводится символ новой строки с помощью функции writeln.