Дана блок-схема алгоритма. Определить результат выполнения алгоритма при n=4​

1. компьютерная графика  – это наука, один из разделов информатики, изучающая способы формирования и обработки изображений с компьютера. 2. ве́кторная гра́фика  — способ представления объектов и изображений в  компьютерной графике, основанный на описании элементарных объектов, обычно называемых  примитивами, таких как: точки, линии,  сплайны,  кривые безье, круги и окружности,  многоугольники. объекты векторной графики являются графическими изображениями объектов. термин "векторная графика" используется для пояснения различий от  растровой графики, в которой изображение представлено в виде графической матрицы. 3. плоттер  (графопостроитель) — устройство для автоматического вычерчивания с большой точностью рисунков, схем, сложных чертежей, карт, трехмерных изображений и другой графической информации на бумаге размером до a0. так же как и у принтеров, изображение на бумаге формируется при печатающей головки.

var

 a:array of double;

 i,n,j:integer;

procedure swap(var x,y: double);

  var t: double;

begin

   t := x;

   x := y;

   y := t

end;

 

begin

 write('Кол-во чисел: '); readln(n);

 setlength(a,n);

 dec(n);    

 for i:=0 to n do

   readln(a[i]);

 writeln;  

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;    

 for j:=0 to n-1 do

   for i:=0 to N-j-1 do

     if a[i] < a[i+1] then

       swap(a[i],a[i+1]);        

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;  

end.

Если моё решение вам, пометьте его лучшим !