Плз, pascal. 1)дан массив z(8). определить количество элементов, меньших, чем пятый элемент. 2)дан массив d(12).определить сумму отрицательных элементов массива. 3)дан массив r(10). все нулевые элементы заменить суммой всех элементов.

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var z:=ArrRandom(8,1,20); z.Println;
  Writeln(z.Where(x->x>z[4]).Count);
  var d:=ArrRandom(12,-20,20); d.Println;
  Writeln(d.Where(x->x<0).Sum);
  var r:=ArrRandom(10,-9,9); r.Println;
  var s:=r.Sum;
  for var i:=0 to 9 do if r[i]=0 then r[i]:=s;
  r.Println
end.

Тестовое решение:
15 10 10 8 8 20 19 12
6
-17 -11 -3 -15 -11 -12 -16 19 1 1 11 -15
-100
2 -2 1 0 -8 1 -1 0 -5 9
2 -2 1 -3 -8 1 -1 -3 -5 9