Паскаль ввести массив в(n) целых чисел (n =10). - вопрос №846826710 от Поля34232 25.06.2020 09:03

Question

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

Поля34232 · 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.