Паскаль ввести массив в(n) целых чисел (n =10). найти - вопрос №846736510 от Топирчик 27.04.2022 14:01

Question

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

Топирчик · 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.