Вмассиве случайных чисел найти сумму и количество элементов значение которых больше -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.