// 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.
<u><em>Тестовое решение</em></u>
n= 15
63 53 44 40 29 47 56 55 58 73 56 42 62 95 84
Сумма первых пяти минимальных 202
Программа
{
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
подними_перо;
вектор(15,-15);
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
}
Американский Учёный, Выдающийся Математик и философ, основоположник кибернетики и теории искуственного интеллекта.
Создаёшь txt файл,вписываешь в него нужные наборы выполнения команд и меняешь расширение на bat