Отсортировать массив в порядке возрастания - Turbo Pascal
Формулировка задачи:
(Числа забить "random")
Отсортировать массив А[20] в порядке возрастания,от -10 до 10.
Методом МАХ и МIN.
Решение задачи: «Отсортировать массив в порядке возрастания»
textual
Листинг программы
uses crt; const n=20; var a:array[1..n] of integer; i,j,k:integer; BEGIN clrscr; for i:=1 to n do a[i]:=random(20)-10; for i:=1 to n do write(a[i]:4); writeln; for j:=1 to n-1 do for i:=1 to n-1 do if a[i]>a[i+1] then begin k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; end; writeln; for i:=1 to n do write(a[i]:4); readkey; END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д