Паскаль ввести массив в(n) целых чисел (n =10). - вопрос №846826710 от gnezdozatokaиванка 14.02.2021 06:40

Question

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

gnezdozatokaиванка · Answer

// 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.