program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
Відповідь:
3) (-10,-18).
Пояснення:
В результате 4 повторов - сместить (2,4) и (-1,-2) Чертежник сместился на 4 единицы по х и на 8 единиц по у - (4,8). После смещения (6,10) - результирующее смещение - (10,18).
4 + 6 = 10 - по х.
8 + 10 = 18 - по у.
Для возврата в исходную точку необходимо аналогичное смещение, но с противоположным знаком - (-10,-18).
10 × -1 = -10 - по х.
18 × -1 = -18 - по у.