Question

пожалуйста сделайте программу в паскаль

вывести кол во элементов одномерного массива n и ввести элементы массива типа дабл, что бы выведенный массив был в первой строке(2 знака в дробно части) и упорядочить по убыванию и вывести его

Answer 1

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.

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