преобразовать массив

[ai\ekcah^p]

Массив H = (6, –6, –3, 8, 4, –7, 0) преобразован к виду H = (14, 0, 0, 16, 12, 0, 8). Размер массива H - 10 элементов. из диапазона [–44,44] Вычислить произведение тех элементов преобразованного массива, которые находятся в диапазоне [0, 18].

В итоге прога ерунду какую-то выдает) В чем ошибся?

Program labor3;
uses crt;
const kol_el=10;
type mas=array[1..kol_el] of integer;
var i,p,pr:integer;
h: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
else
a[i]:=a[i]+8;
end;
end;

Begin
clrscr;
Randomize;
for i:=1 to kol_el do
begin
h[i]:=Random(89)-44;
write(' ',h[i]);
end;


begin
for i:=1 to kol_el do
begin
p:=1;
if ((h[i]<19) and (h[i]>=0) ) then
pr:=p*h[i];
p:=pr;
end;
write;
writeln(' proizvedenie elementov = ',pr);
end;
end.

[bobby2008]

Немного переделал. Вы же процедуру задавали, зачем, если вы ее не используете? И р не там приравняли и после then begin и end не поставили.Теперь вроде работает. Вот:

Program labor3;
uses crt;
const kol_el=10;
type mas=array[1..kol_el] of integer;
var i,p,pr:integer;
h: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
else
a[i]:=a[i]+8;
end;
end;

Begin
clrscr;
Randomize;
for i:=1 to kol_el do
begin
h[i]:=Random(89)-44;
write(' ',h[i]);
end;
WRITELN;
preobr(h);
for i:=1 to kol_el do
write(' ',h[i]);
p:=1;
for i:=1 to kol_el do
begin
if ((h[i]<19) and (h[i]>0) ) then BEGIN
pr:=p*h[i];
p:=pr;
end;
end;
write;
writeln(' proizvedenie elementov = ',pr);
readln;
end.

[ai\ekcah^p]

пишет арифметическое переполнение
h[i]:=Random(89)-44;
что это значит?

[bobby2008]

У меня все нормально работает...