Question

Паскаль , ввод с клавиатуры , очень срочно ! Ввести массив В(n) целых чисел (n>=10). Найти сумму последних пяти элементов массива и заменить ею первый элемент массива, если он отрицателен. Массив и сумму распечатать.

Answer 1

Begin
   var arr := arrGen(ReadInteger('Введите n: '), e ->   ReadInteger()).Println().ToArray();
   var sum := arr.Skip(arr.Length - 5).Sum();
   Println(sum);
   arr[0] := arr[0] < 0 ? arr[0] : sum;
   arr.Println();
end.