Hurdin
6 год назад
Дан одномерный массив, содержащий N элементов. Составьте алгоритм и программу, выполняющие следующие действия:
упорядочение элементов массива по возрастанию;
вычисление суммы A[1] + A[2]*A[2] + A[3]*A[3] …;
Например:
N = 5;
Числа: 4,1,3,2,5
ОТВЕТЫ
Юрий
Aug 5, 2019
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var n:=ReadInteger(n=);
var a:=ReadArrInteger(Вводите элементы:,n);
a.Sort;
a.Println;
var s:=a[0]+a[n-1];
for var i:=1 to n-2 do s:=s+sqr(a[i]);
Writeln(S=,s)
end.
Пример
n= 5
Вводите элементы: 4 1 3 2 5
1 2 3 4 5
S=35
begin
var n:=ReadInteger(n=);
var a:=ReadArrInteger(Вводите элементы:,n);
a.Sort;
a.Println;
var s:=a[0]+a[n-1];
for var i:=1 to n-2 do s:=s+sqr(a[i]);
Writeln(S=,s)
end.
Пример
n= 5
Вводите элементы: 4 1 3 2 5
1 2 3 4 5
S=35
151
