Question

В массиве Z длины m обнулить значение минимального элемента. Определить количество отрицательных элементов массива

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandom(ReadInteger('m='), -50, 50);
    a.Println;
    a[a.IndexMin] := 0;
    a.Println;
    Writeln('x<0: ', a.Count(x -> x < 0));
end.