Не могу въехать в алгоритм преобрасования массива

[mastar]

Массив K = (5, –5, 4, 9, –7, –11, 0) преобразован к виду K = (0, 1, 0, 0, –1, –5, 0). Размер массива K - 21 элемент из диапазона [–56,56]. Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–1, 16].
И так и этак кручу мозгами, а сообразить не могу, если кто-нибудб может проверить правильность остального - буду очень признателен

uses crt;
const kol_el=21;
type mas=array[1..kol_el]of integer;
var k:mas;
Procedure preobr(var a:mas);
var i:integer;
begin
for i:=1 to kol_el do a[i]:=a[i]?????????????????????????;
end;
Function Sum (b:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to kol_el do
if (b[i]>=-1) and (b[i]<=16) then s:=s+b[i];
sum:=s;
end;
var i:integer;
begin
clrscr;
Randomize;
for i:=1 to kol_el do begin
k[i]:=random(113)-56;
write(k[i]:4);
end;
preobr(k);
writeln;
writeln;
for i:=1 to kol_el do
write(k[i]:4);
writeln;
writeln;
write('Summa elementov =', Sum(k));
readln;

[mastar]

Неужели такой сложный вопрос?

[Google2010]

Те которые больше 0 заменяешь на 0, все что меньше 0 увеличиваеш на 6

[CodeExpert]

PHP код:

uses crt;
const kol_el=21;//кол-во элементов
type mas=array[1..kol_el]of integer;//массив
var k:mas;
{процедура преобразования}
Procedure preobr(var a:mas);
var i:integer;//счетчик
begin
for i:=1 to kol_el do begin
 if a[i]>=0 then a[i]:=0;
 if a[i]<0 then a[i]:=a[i]+6;end;
end;

Function Sum (b:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to kol_el do
if b[i] in [-1;16] then s:=s+b[i];
sum:=s;
end;

var i:integer;
begin
clrscr;
Randomize;
for i:=1 to kol_el do begin
k[i]:=random(113)-56;
write(k[i]:4);
end;
preobr(k);
writeln;
writeln;
for i:=1 to kol_el do
write(k[i]:4);
writeln;
writeln;
write('Summa elementov =', Sum(k));
readln;
end. 


[mastar]

CodeExpert, СПАСИБО!
Ты настоящий друг!
Я голову сломал, извилины какие то перемкнули наверное

[mastar]

Эта строка не работает
if b[i] in [-1??????;16] then s:=s+b[i];

[Serge_Bliznykov]

я бы не мудрил с множествами и написал так:

if (b[i]>=-1) and (b[i]<=16) then s:=s+b[i];

[mastar]

Я так и сделал...
Спасибо , ребята!