Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var b:=ReadArrReal('Вводите:',ReadInteger('n='));
  var s:=b.TakeLast(5).Sum;
  if b[0]<0 then b[0]:=s;
  b.Println; Writeln('Сумма=',s)
end.