• Pascal!!
    Ввести массив А[1..10]. Отсортировать по убыванию элементы массива А любым методом. Вывести на экран в два столбца, стоящих рядом, исходный и отсортированный массивы, элементы вывести через точку с запятой.

Ответы 5

  • А можно программу полностью?
  • Var a,b: array[1..10] of integer;I,j: integer;BeginFor i:=1 to 10 do read(a[i]);B:=a;For j:=9 downto 1 do For i:=1 to j do If (b[i]<b[i+1]) then begin B[i]:=b[i]+b[i+1]; b[i+1]:=b[i]-b[i+1]; b[i]:=b[i]-b[i+1]; End;For i:=1 to 10 do Writeln(a[i],'; ',b[i]);End.
  • Тогда почему то неполностью вставилось
    • Автор:

      adensims
    • 6 лет назад
    • 0
  • Спасибо)
    • Автор:

      traceogxu
    • 6 лет назад
    • 0
  • Var b,a: array[1..10] of integer; I,j: integer; Begin For i:=1 to 10 do read(a[i]); B:=a; For j:=9 downto 1 do For i:=1 to j do If (b[i]
    • Автор:

      danika
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years