===== 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.
#include<iostream>
using namespace std;
int main(){
int l,v1,v2,t;
cin>>l>>v1>>v2>>t;
int x1 = (t * v1)%l,x2 = (-t*v2)%l;
if(x1<0) x1=l-x1;
if(x2<0) x2=l+x2;
cout<<min(abs(x1-x2),abs(l-x1-x2));
}
Не понятно пиши нормально!