Question

1. Для одномерного массива вещественных чисел вычислить произведение значений тех элементов, которые не принадлежат отрезку [2;3]

Answer 1

var i:integer;
a:array[1..10] of real;
p:real;
begin
p:=1;
for i:=1 to 10 do begin
readln(a[i]);
if(a[i]<2)or(a[i]>3)then
p:=p*a[i];
end;
writeln('p=',p);
end.