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;
// Тест
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
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.