Массив: Заменить все отрицательные элементы значениями по модулю...

begin
  var a := ReadArrInteger('Array:', 2);
  
  'Sum:'.Print();
  a.Sum().Println();
  
  'Converted array:'.Print();
  a.Select(x -> Abs(x)).Println();
  
  'Non-zero elements count:'.Print();
  a.Count(x -> x <> 0).Println();
  
  'Multiplication:'.Print();
  var temporary := a.Where(x -> x > a.Last());
  if temporary.Any() then
    temporary.Product().Println()
  else
    'There are not any items those more than the last array item.'.Println();
end.

var p:integer;
begin
p:=1;//у меня как это реализовано?
  var m := ReadArrInteger(ReadInteger);
  $'Сумма:{m.Sum}'.Println;
  write('Преобразованный массив: ');
  m.Transform(i -> abs(i));
  m.Println;
  $'Кол-во отличных от нуля : {m.Count(i->i<>0)}'.Println;
for var i:=0 to m.length - 1 do 
begin
if m[i]>m.last
then p*=m[i];
$'Произведение: {p}'.Println;
end;
end.

var
  a:array [1..100] of real;
  n,i,c:integer;
  p,z:real;
begin
  write('N=');readln(n);
  write('введите ',n,' элементов массива:');
  for i:=1 to n do read(a[i]);
  writeln('Новый массив:');
  for i:=1 to n do begin
    z:=z+a[i];
    if a[i]<0 then a[i]:=abs(a[i]);
    write(a[i],' ');
    if a[i]<>0 then c:=c+1;    
    if a[i]>a[n] then if p=0 then p:=a[i] else p:=p*a[i];
  end;
  writeln;
  writeln('Сумма элементов:',z:0:4);
  writeln('кол-во элементов отличных от 0:',c);
  writeln('произведение элементов больших чем последний элемент в массиве:',p:0:4);
  readln;
end.

begin
  var a := ReadArrInteger('Array:', 2); // NETSquirrel: ArraysUtils.GenerateIntArray
  
  'Sum:'.Print(); // NETSquirrel: Print
  a.Sum().Println(); // NETSquirrel: PrintLine
  
  'Converted array:'.Print();// NETSquirrel: Print
  a := a.Select(x -> Abs(x)).Println().ToArray();// NETSquirrel: PrintLine
  
  'Non-zero elements count:'.Print(); // NETSquirrel: Print
  a.Count(x -> x <> 0).Println(); // NETSquirrel: PrintLine
  
  'Multiplication result:'.Print();// NETSquirrel: Print
  var temporary := a.Where(x -> x > a.Last());
  if temporary.Any() then
    temporary.Aggregate((x, y) -> x * y).Println() // NETSquirrel: PrintLine
  else
    'There are not any items those more than the array last item.'.Println(); // NETSquirrel: PrintLine
end.

begin
  writeln(0.0**0.0);
end.