Дан массив из 100 целых чисел. Найти сумму 10 самых маленьких чисел. 20 баллов!

0 голосов
14 просмотров
спросил от (91 баллов) в категории Информатика

Дан массив из 100 целых чисел. Найти сумму 10 самых маленьких чисел. 20 баллов!


1 Ответ
0 голосов
ответил от БОГ (150k баллов)
 
Лучший ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(100,-99,99); a.Println;
  Writeln('Сумма 10 самых маленьких чисел ',a.Sorted.Take(10).Sum)
end.

Пример
-61 91 33 86 -69 88 -86 60 -78 -63 -30 -39 -33 24 -94 -11 -26 18 59 -9 -82 50 9 28 -34 -8 5 46 59 25 -19 92 -1 93 50 -33 -94 -19 -26 -43 21 -54 -27 -59 80 -95 12 2 -23 93 99 -30 44 -51 61 -12 -18 -94 20 39 -16 -32 -98 -4 55 -22 61 -26 73 39 -16 93 -55 3 69 72 -23 -31 48 -38 79 -96 -30 65 26 -88 -51 -49 -68 -38 84 -99 60 34 72 -46 -55 77 -15 2
Сумма 10 самых маленьких чисел -926
...