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

[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.

[Ky3Heu,]

if ((h[i]<19) and (h[i]>=0) ) then

Тебе это не надо... Все равно все отрицательные числа равны 0

if h[i]<19 then p:=p*h[i];

и "p" не надо в цикле обратно к единице приравнивать.. Я так понимаю из-за этого и неправильно все...

[ai\ekcah^p]

Он теперь отрицательное произведение выводит