// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var a:=ArrRandom(ReadInteger('n='),10,99); a.Println; Writeln('Сумма первых пяти минимальных ',a.Sorted.Take(5).Sum) end.
Тестовое решение n= 15 63 53 44 40 29 47 56 55 58 73 56 42 62 95 84 Сумма первых пяти минимальных 202
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Сумма первых пяти минимальных ',a.Sorted.Take(5).Sum)
end.
Тестовое решение
n= 15
63 53 44 40 29 47 56 55 58 73 56 42 62 95 84
Сумма первых пяти минимальных 202