Дан массив целых чисел из 12 элементов. Найти произведение элементов лежащих в промежутке [-2,10].

Const n = 12;

var

f: boolean;

i, p: integer;

a: array [1 ... n] of integer;

begin

randomize;

writeln ('Исходный массив') ;

for i : = 1 to n do begin

a[i] : = Random (21) - 10;

write (a[i], ' ') ;

end;

p : = 1;

for i : = 1 to n do

if (a[i] > = - 2) and (a[i] < = 10) then begin

f : = true;

p : = p * a[i];

end;

writeln;

write ('Произведение = ') ;

if not f then writeln (0)

else writeln (p) ;

end.