Описать функции ввода с клавиатуры элементов одномерного массива и нахождения суммы элементов массива, предшествующих первому отрицательному элементу. если среди элементов массива нет отрицательных, то про¬суммировать все элементы.

1 #include <iostream>

2 using namespace std

3 int main ( ) {

4. int *arr , n , i mult=1;

5. cout Enter sizə of array : \n" ;

PascalABC.NET

function GetArr(n: integer) :=

   ReadArrInteger('Вводите эдементы массива:', n);

function Summ(a: array of integer): integer;

begin

   if a.Any(p -> p < 0) then

       Result := a.TakeWhile(p -> p >= 0).Sum

   else

       Result := a.Sum

end;

// Тест

begin

   var M := GetArr(ReadInteger('n ='));

   Println(Summ(M))

end.