Var a,i,sum:integer;
x: array [1..12] of integer;
z: array [1..12] of real;
begin
for i:=1 to 12 do
begin
x[i]:=random(20)+1;
writeln('x[',i,'] = ',x[i])
end;
sum:=0;
write('Введите а = '); readln(a);
for i:=1 to 12 do sum:=sum+x[i]-a;
for i:=1 to 12 do
begin
x[i]:=sqr(x[i]);
z[i]:=sum/x[i]
end;
for i:=1 to 12 do writeln('z[',i,'] = ',z[i])
end.