Как решить эту задачу в Паскаль.
Как решить эту задачу в Паскаль.
Вот пример программы на языке Паскаль, которая решает данную задачу:
program CalculateZ;
const
N = 50; // количество элементов в массиве X
type
XArray = array[1..N] of Real;
var
X: XArray;
Z: XArray;
i: Integer;
begin
// Ввод значений массива X
for i := 1 to N do
begin
Write('Введите значение X', i, ': ');
Readln(X[i]);
end;
// Вычисление и запоминание значений функции Z
for i := 1 to N do
begin
Z[i] := Sqrt(Sqr(X[i]) + 1) / i;
end;
// Вывод значений массива Z
for i := 1 to N do
begin
Writeln('Z', i, ' = ', Z[i]);
end;
Readln;
end.
Программа сначала запрашивает у пользователя значения элементов массива X, затем вычисляет и запоминает значения функции Z для каждого элемента X. Наконец, программа выводит значения массива Z на экран.