Question

Дано целое число n и массив случайных чисел X[1..n].
Все элементы массива , меньше двух,заменить нулями.
Кроме того, получить сумму и количество элементов , принадлежащих отрезку[3,7].

Answer 1

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,9);
  a.Println;
  var k:=0;
  var s:=0;
  for var i:=0 to a.Length-1 do begin
    if a[i]<2 then a[i]:=0;
    if a[i] in [3..7] then begin
      Inc(k); s+=a[i]
      end
    end;
  a.Println;
  Writeln('Сумма ',k,' элементов на интервале равна ',s)
end.

Тестовое решение:
n= 15
5 7 6 7 8 9 0 7 9 7 6 1 0 0 8
5 7 6 7 8 9 0 7 9 7 6 0 0 0 8
Сумма 7 элементов на интервале равна 45