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

Damirzic Damirzic    1   14.09.2019 21:10    0

Ответы
neondragooffi neondragooffi  07.10.2020 15:14
// 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика