массив

[Programmist26]

нужно найти произведение отрицателных чисел в массиве вот моя программа но она всегда выдает ноль

procedure TForm11.Button5Click(Sender: TObject);
 var
p,i,j:integer;
begin
  p:=1;
  begin
    for i:= 1 to 15 do
     for j:= 1 to 7  do
       if a[i,j] <0 then
           p:=p*a[i,j];
    edit5.Text:=floattostr(p);
  end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Эм...а begin после p:=1; это к чему? Зачем float если p integer?

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[Serge_Bliznykov]

с замечаниями Alex11223 полностью согласен.

Однако это всё недочёты, которые не влияют на работоспособность данного алгоритма.

Принципиальных ошибок я не вижу.
Скорее всего в массиве НЕТ отрицательных значений, либо они лежат за пределами 15 строки и/или 7-го столбца...

И давайте код модуля полностью - как описываете массив, где Вы его заполняете и т.п....

p.s. А код я бы такое рекомендовал (внимание! Если элементы массива целые числа, то лучше p объявить как Integer и присвоение делать так edit5.Text := IntToStr(p)):

procedure TForm11.Button5Click(Sender: TObject);
var 
  p : double;
  i,j:integer;
begin
  p:=1.0;
  for i:= 1 to MaxRow do
   for j:= 1 to MaxCol  do
     if a[i,j]<0 then
           p:=p*a[i,j];
  edit5.Text := FloatToStr(p);
end;

[Stilet]

но она всегда выдает ноль

А должна выдавать 1 )