var x:array[1..8] of integer := (-10, -9, -8, -7, -6, -5, -4, -3); i,a:integer; y:real;begin writeln('a='); readln(a); for i:=1 to 8 do begin y:=7*sqr(x[i])-14/x[i]+a; writeln('x[',i,']= ',y); end;end.
Если нужна программа только под д),то вот:
Program n6;
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
<span>end.</span>