Дан массив целых чисел состоящий из 10 элементов. найти сумму трех минимальных элементов этого массива метот пузыря

Var a: array [1..10] of integer;     i,temp: integer;     f: boolean; begin  randomize;   for i: =1 to 10 do    a[i]: =random(100);   for i: =1 to 10 do    write(a[i]: 3);     writeln;   repeat    f: =false;     for i: =1 to 9 do    begin      if a[i]> a[i+1] then      begin          f: =true;           temp: =a[i];           a[i]: =a[i+1];           a[i+1]: =temp;       end;     end;   until not f;   for i: =1 to 10 do    write(a[i]: 3);     temp: =0;   for i: =1 to 3 do    temp: =temp+a[i];     writeln;     writeln(temp);   readln; end.

Самые главные недостатки: - высокие требования к аппаратной составляющей компьютера: к его оперативной памяти, быстроте работы процессора и т.д.,- необходимость больших временных затрат на создание моделей всех объектов сцены, могущих оказаться в поле зрения камеры. конечно, такая работа стократно окупается результатом,- меньшую свободу в создании изображения, чем в двухмерной графике. создавая объект карандашом на бумаге или средствами 2d-графике на экране, можно совершенно свободно искажать пропорции объектов, пренебрегать законами перспективы и пр. в 3d-формате это возможно только в наиболее мощных пакетах, но даже в них это требует дополнительных усилий и изобретательности,- необходимость постоянно отслеживать взаимное положение объектов в составе сцене, в частности, при создании 3d-анимации. так как объекты 3d-графики «бестелесны», они легко проникают друг в друга и важно контролировать отсутствие ненужного контакта между ними.