1. 

   просто Дина New Member

   Упорядочить целочисленный массив Х по убыванию

    

   просто Дина, 30 мар 2010

   #1
2. 

   unnammed New Member

   var x:array[1..n] of integer; (n сам задай)
   i,j,k:integer;
    
   begin
   For i:=1 to n do
   Readln(x);
   For j:=1 to n-1 do
   For i:=1 to n-j do
   If X<X[i+1] then begin k:=X; X:=X[i+1]; X[i+1]:=k; end;
   For i:=1 to n do
   Writeln(X);
   end.
   

    

   unnammed, 30 мар 2010

   #2

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

Пароль:

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

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