Здравствуйте, amelya.kuro!

Смотрите приложение:
[code lang=pascal h=200]uses
crt;
const
n=20;
var
a,b,c,d,e,g,h:integer;
z:array[1..n]of integer;
begin
{вводим диапазон}
repeat
write('Enter A:');
readln(a);
until(0<a)and(a<n);
repeat
write('Enter B:');
readln(b);
until(a<b)and(b<n);
writeln;
{создаем массив}
for c:=1 to n do
begin
TextColor(15);{цвет обычный}
z[c]:=25-random(50);{создаем элемент массива}
if(a<=c)and(c<=b)then{проверяем диапазон}
begin
if z[c]>0 then{считаем только положительные}
begin
d:=d+z[c];
inc(e);
end;
if z[c]<0 then{считаем отрицательные}
begin
g:=g+z[c];
inc(h);
end;
TextColor(10);{выделяем диапазон}
end;
write(z[c]:4);{выводим элемент}
end;
writeln;{выводим результат}
writeln('positive summa:',d:5,'count:':10,e);
writeln('negative summa:',g:5,'count:':10,h);
end.[/code]
Удачи!