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.
от 0 до 8 = 81; 81 + 44 = 125
от 1 до 8 = 44; 44 + 44 = 88
от 2 до 8 = 24; 24 + 44 = 68
от 3 до 8 = 13; 13 + 44 = 57
от 4 до 8 = 7; 7 + 44 = 51
от 5 до 8 = 4; 4 + 44 = 48
от 6 до 8 = 2; 2 + 44 = 46
от 7 до 8 = 1; 1 + 44 = 45