Сформировать случайный массив и посчитать сумму квадратов его элементов - Turbo Pascal

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

Составьте программу которая сформировав с помощью датчика случайных чисел одномерный массив данных подсчитывает следующие выражения: y=x[1]*x[1]+x[2]*x[2]+...+x[n]*x[n]

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

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

const n=2;
var x:array[1..n] of real; i:integer; y:real;
begin
 for i:=1 to n do x[i]:=random(100)/100;
 for i:=1 to n do y:=y+sqr(x[i]);
 write(y);
 readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он содержит два вложенных цикла. Первый цикл for используется для формирования случайного массива x, где каждый элемент имеет случайное значение от 0 до 99. Второй цикл for используется для подсчета суммы квадратов элементов массива x. Результат этой суммы сохраняется в переменной y. Затем значение переменной y выводится на экран с помощью функции write, а затем считывается значение переменной y с помощью функции readln.