Вычислить произведение тех элементов матрицы, значения которых находятся в диапазоне от 16.8 до 30.5.

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

i,j:Integer;

p:real;

begin

p:=1;

Writeln('Массив ');

for i:=1 to 3 do

begin

for j:=1 to 3 do

begin

a[i,j]:=random()+random(31);

if (a[i,j]>=16.8) and (a[i,j]<=30.5) then p:=p*a[i,j];

write (a[i,j]:7:3)

end;

writeln

end;

WriteLn;

Write('Произведение элементов больше 16,8 и меньше 30,5 равно ',p:0:3)

end.