Создать массив из 20 случайных чисел в диапазоне от - 30 до 0. Нечетные элементы возвести в квадрат и вывести на экран поиск массива.

Const n=20;

var x : array[1 ... n] of integer;

i : integer;

begin

Randomize;

writeln ('Исходный массив:') ;

for i:=1 to n do

begin

x[i]:=random (31) - 30;

write (x[i],' ') ;

end;

writeln;

for i:=1 to n do

if x[i] mod 2 0 then x[i]:=x[i]*x[i];

writeln ('Измененный массив:') ;

for i:=1 to n do write (x[i],' ') ;

writeln;

end.