В двуменрном массиве действительных чисел найти произведение отрицательных элементов...

Question

В двуменрном массиве действительных чисел найти произведение отрицательных элементов больших -14

Answer 1

program raf105;

var a:array[1..3,1..3] of integer;

i,j,x:integer;

begin

writeln('Введите 9 чисел по очереди');

x:= 1;

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j] < 0) and (a[i,j] > -14)

     then x *= a[i,j];

end;

writeln('Вывод: ',x);

end.

Язык PascalABC