• Дан массив В(20). Заполните его случайными числами в интервале [0,100]. Отсортируйте по убыванию и выведите массив на экран.
    для паскаля

Ответы 6

  • А что касается "Прошу поправить..." - никто, кроме авторов вопроса или ответа, даже Администратор, не имеет технической возможности править их тексты.
    • Автор:

      pruitt
    • 6 лет назад
    • 0
  • Буду иметь в виду
    • Автор:

      harley86
    • 6 лет назад
    • 0
  • тогда осталось выяснить с несогласием.
  • Ваша правда
    • Автор:

      bubba4lxi
    • 6 лет назад
    • 0
  • Понятно, вопрос закрыт.
  • Program arra;const m=20;var B: Array[1..m] Of Integer;i,j,k:integer;BEGINrandomize;for i:=1 to m do begin B[i]:= random(101); end;  write('Массив до сортировки: '); for i:=1 to m do begin write(B[i]);  write(' '); end; writeln;for i := 1 to m-1 do        for j := 1 to m-i do            if B[j] < B[j+1] then begin                k := B[j];                B[j] := B[j+1];                B[j+1] := k            end;            write('Массив после сортировки: ');            for i:=1 to m do begin write(B[i]); write(' '); end; end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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