Найти квадратные корни из чисел - Turbo Pascal

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

дан линейный массив из 5 чисел найти квадратные корни из этих чисел (сделать задачу через for to do числа вводить самой)

Решение задачи: «Найти квадратные корни из чисел»

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

const
  n = 5;
 
var
  x: array [1..n] of real;
  i: byte;
 
begin
  Writeln('Введите элементы ', n, '(штук): ');
  while i <> n do
  begin
    i := i + 1;
    Readln(x[i]);
    if x[i] >= 0 then
      Writeln('Кв. корень = ', Sqrt(x[i]):0:5)
    else
      Writeln('Кв. корень из отрицательного числа не существует');
  end;
  Readln
end.

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

В начале объявляются две переменные: n и x. Переменная n инициализируется значением 5. Переменная x представляет собой массив из 5 элементов типа real.
Затем идет блок begin-end, внутри которого происходит чтение элементов массива x с помощью функции Readln. Чтение продолжается до тех пор, пока не будет введено значение n.
После окончания чтения элементов массива x, выполняется проверка каждого элемента на положительность. Если элемент положительный, то вычисляется квадратный корень с помощью функции Sqrt и выводится на экран. Если элемент отрицательный, выводится сообщение о том, что квадратный корень из отрицательного числа не существует.
В конце программы вызывается функция Readln для чтения последнего элемента и завершается выполнение программы.