Question

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

Answer 1

//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]