Ввести целое n, затем ввести n вещественных элементов одномерный массива x, используя процедуру vvod. найти сумму и произведение элементов,не попавших в заданный отрезок[а; b] (значения параметров a и b ввести с экрана). вывести на
экран значения элементов,не попавших в заданный отрезок и их количество

//pascal abc.net 3.1 сборка 1219 var   n,a,b: integer;   x: array of integer;   procedure vvod(n: integer; var x: array of integer);   begin   x: =readarrinteger(n);   end;   begin   readln(n,a,b);   vvod(n,x);   var sub1: =x.where(x -> x< a);   var sub2: =x.where(x -> x> b);   var sub: =sub1+sub2;   n: =1;   writeln('сумма не вошедших: ',sub.sum);   foreach var i in sub do   n: =n*i;   writeln('произведение не вошедших: ',n);   writeln('количество не вошедших: ',sub.count);   writeln('все элементы: ',sub); end. пример ввода: 5 1 5 -1 -2 4 5 6 пример вывода: сумма не вошедших: 3 произведение не вошедших: 12 количество не вошедших: 3 все элементы: [-1,-2,6]

Program pr_1;
a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.

1;2;3;6;8;9. Так как в восьмиричную систему входят цифры от 1 до 7 включительно

Я сам новичок,но думаю 1 раз