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

Question

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

Comments

с клавиатуры

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;<br>  b.Println; Writeln('Сумма=',s)
end.