Задание 3. Однотипная обработка элементов массива

Составить программу на языке Turbo Pascal для введения в память 10 значений элементов массива Х, вычисляемых по формуле и вывода на экран квадратов элементов.

Задача условно делится на два блока: ввод элементов массива и вывод на экран квадратов элементов. При вводе элементы массива рассчитываются по формуле, поэтому вместо ввода с клавиатуры (Read (X[i])) здесь используется оператор присваивания элементу массива соответствующего значения.

Program massiv_3;

Const N=10; {Ввод количества элементов массива}

var i: integer;

X: Array [1..N] of Real;

begin

For i:= 1 To N Do Х[i]:=sin(i); {Ввод элементов массива}

For i:= 1 To N Do

begin

Х[i]:=sqr(X[i]); {Возведение элементов массива в квадрат}

Writeln('Х[',i,']=', X[i]:6:2);

end;

end.