Паскаль ввести массив в(n) целых чисел (n =10). - вопрос №108467590 от Agartala236 22.09.2021 16:32

Question

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

Agartala236 · 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.