В массиве действительных чисел найти сумму квадратов восьми наименьших...

Question

В массиве действительных чисел найти сумму квадратов восьми наименьших елементов(упорядочение масивов)

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99).Select(x->x/10).ToArray;
  a.Println;
  Writeln('s=',a.OrderBy(x->x).Take(8).Select(x->x*x).Sum)
end.

Пример
n= 13
2.6 1.7 6.9 -9.1 -5.2 -2.3 -5.3 -1.1 -1.7 -2.5 7.6 -3.4 3.6
s=165.14

Comments

треба через упорядкування масивів

---

а подлиннее програму можно сделать?

---

Можно, в 31 строку=)

Answer 2

Const
   N = 13;
Var
   A:array[1..N] of real;
   S:real;
   i,j,Min:integer;
Begin
Write('Исходный массив:     ');
For i:= 1 to N do
    Begin
    A[i]:=random*(N+1)-N;
    Write(' ',A[i]:0:1)
    End;
WriteLn;
Write('Упорядоченный массив:');
For i:= 1 to N do
    Begin
    Min:=i;
    For j:= i+1 to N do
        if A[j] < A[Min] then Min:=j;
    S:=A[i];
    A[i]:=A[Min];
    A[Min]:=S;
    Write(' ',A[i]:0:1)
    End;
S:=0;
For i:= 1 to 8 do
    S:=S+A[i]*A[i];
WriteLn;
Write('S = ',S);
End.

Comments

почему так много минусовых чисел

---

Потому что хотел написать:
"A[i]:=random*(N*2+1)-N;"
а написал так:
"A[i]:=random*(N+1)-N;"

---

то мне поменять?

---

Да, если хотите, чтобы поровну было

---

сортировка по в порядке возрастания методом пузырька?

---

Как конкретно этот метод называется - не знаю.