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

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016begin  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= 155 7 6 7 8 9 0 7 9 7 6 1 0 0 85 7 6 7 8 9 0 7 9 7 6 0 0 0 8Сумма 7 элементов на интервале равна 45