begin
var a:=Range(-5,12).Println;
a.Select(x->x*x*x).Println;
end.
<em>sp - сумма положительных элементов</em>
<em>so - сумма отрицательных элементов</em>
<em>kp - количество положительных элементов</em>
<em>ko - количество отрицательных элементов</em>
<em>fo - первый отрицательный элемент</em>
<em>lo - последний отрицательный элемент</em>
<em>max,min - номера макс и мин эл массива</em>
<em>a[max],a[min] - макс и мин эл массива</em>
<em>sum - сумма эл массива</em>
<em>proiz - произведение эл массива</em>
<em>m1,m2 - два макс эл</em>
<em>maxo - макс среди отрицательных</em>
<em>s1 - сумма эл не превышающих maxo</em>
<em>minp - мин среди положительных</em>
<em>s2 - сумма эл,превышающих minp
</em>s3 - сумма эл от a до b
cn - количество эл от a до b
-----------------------------------------------------------------------------------------------------
const n = 10;
var a:array [1..n] of integer;
i,sp,so,kp,ko,max,min,fo,lo,m1,m2,maxo,s1,minp,s2,aa,bb,s3,cn:integer;
sum,proiz:longint;
f:boolean;
begin
randomize;
so:=0;
sp:=0;
kp:=0;
ko:=0;
f:=false;
for i:=1 to n do
begin
a[i]:=random(21)-10;
if (not f) and (a[i]>1) then f:=true;
write (a[i]:3);
if a[i]>0 then
begin
sp:=sp+a[i];
inc(kp);
end else if a[i]<0 then
begin
so:=so+a[i];
inc(ko);
end;
end;
writeln;
max:=1;
min:=1;
for i:=2 to n do
if a[i]>a[max] then max:=i else
if a[i]<a[min] then min:=i;
for i:=1 to n do
if a[i]<0 then
begin
fo:=i;
break;
end;
for i:=n downto 1 do
if a[i]<0 then
begin
lo:=i;
break;
end;
proiz:=1;
if f then
sum:=so+sp
else for i:=1 to n do proiz:=proiz*a[i];
m1:=-100;
m2:=-100;
for i:=1 to n do
if a[i]>m1 then
begin
m2:=m1;
m1:=a[i];
end else if (a[i]>m2) and (a[i]<>m1) then m2:=a[i];
maxo:=-100;
for i:=1 to n do
if (a[i]<0) and (a[i]>maxo) then maxo:=a[i];
s1:=0;
for i:=1 to n do
if a[i]<maxo then s1:=s1+a[i];
minp:=100;
for i:=1 to n do
if (a[i]>0) and (a[i]<minp) then minp:=a[i];
s2:=0;
for i:=1 to n do
if a[i]>minp then s2:=s2+a[i];
write ('A = ');
readln (aa);
write ('B = ');
readln (bb);
s3:=0;
cn:=0;
for i:=aa to bb do
begin
inc(s3,a[i]);
inc(cn);
end;
end.
Вот смотри на рисунок вроде так
