• Создать массив из 20 случ. Чисел на промежутке от -10 до 30 , отсортировать массив по убыванию

    На экран вывести исходный и отсортированный массив

Ответы 1

  • vara:array[1..20] of integer;i,j,x:integer;beginrandomize;writeln('Исходный массив');for i:=1 to 20 dobegina[i]:=-10+random(40);write(a[i]:4);end;writeln;for i:=1 to 19 dofor j:=i+1 to 20 doif a[i]<a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end;writeln('Новый массив');for i:=1 to 20 dowrite(a[i]:4);readln;end.
    • Автор:

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

Войти через Google

или

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

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

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