1. 

   animedeshevo New Member

   Дан одномерный массив: 8, 3, -9, 10, 0. Отсортировать элементы массива по убыванию.

    

   animedeshevo, 31 мар 2010

   #1
2. 

   negative creep New Member

   Uses crt;
   const n=5;
   var a:array[1..n] of integer;
   i,p:integer;
   begin
   for i:=1 to n do
   read(a);
   repeat
   p:=0;
   for i:=1 to n-1 do
   if a<a[i+1] then
   begin
   p:=1;
   a:=a+a[i+1];
   a[i+1]:=a-a[i+1];
   a:=a-a[i+1];
   end;
   until p=0;
   for i:=1 to n do
   writeln(a);
   end.
   
   
   
   
   

    

   negative creep, 31 мар 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня