Advertisement
Guest User

Untitled

a guest
Mar 21st, 2019
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.50 KB | None | 0 0
  1. program a2;
  2.   var c:array[1..10] of real;
  3.   var i:integer;
  4.   var j:integer;
  5.   var p:real;
  6. begin
  7.   c[1]:=63;
  8.   c[2]:=7.2;
  9.   c[3]:=-4.5;
  10.   c[4]:=0;
  11.   c[5]:=-10;
  12.   c[6]:=14;
  13.   c[7]:=-31;
  14.   c[8]:=11;
  15.   c[9]:=-14;
  16.   c[10]:=5;
  17.  
  18.   for i:=10 downto 2 do
  19.     for j:=1 to i-1 do
  20.     if c[j+1]<c[j] then begin
  21.       p:=c[j+1];
  22.       c[j+1]:=c[j];
  23.       c[j]:=p;
  24.     end;
  25.    
  26.   writeln('После сотрировки:');  
  27.   for i:=1 to 10 do
  28.     writeln('c[', i, '] = ', c[i]:0:1);
  29. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement