Вмассиве случайных чисел найти сумму и количество элементов значение которых больше -3 но меньше 20

const

  N = 10;

var

   mas: array [1..N] of integer;

   sum,count,i:integer;

begin

   for i:=1 to N do begin

      mas[i] := random(51)-10;

   end;

   writeln('Массив: ');

   for i:=1 to N do begin

      write(mas[i] + ' ');

   end;

   writeln();

   for i:=1 to N do begin

      if (mas[i] > -3) and (mas[i] < 20) then begin

          sum += mas[i];

          count+=1;

      end;

   end;

   writeln('Сумма элементов массива, значение которых больше -3 но меньше 20 = ' + sum);

   writeln('Их количество = ' + count);

end.

Объяснение:

Pascal.

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var s := a.Where(p -> p.InRange(-2, 19));

 Writeln('Сумма ', s.Sum, ', кол-во ', s.Count)

end.