Ответы на вопрос:
Uses crt; var i,j,max: byte; a: array [1..100] of integer; buf: integer; begin repeat write(' input number of elements '); readln(max); until max in [1..100]; writeln('input your demention'); for i: =1 to max do begin write('input a[', i, '] = '); readln(a[i]); end; buf: =0; write('the first sort: '); for i: =max downto 1 do for j: =2 to i do if a[j]< a[j-1] then begin buf: =a[j]; a[j]: =a[j-1]; a[j-1]: =buf; end; for i: =1 to max do write(a[i]); writeln; write('the second sort : '); for i: =max downto 1 do write(a[i],' '); end.с форума программистов , сортировка повсюду
Популярно: Информатика
-
неумно21.12.2020 14:34
-
Moreland07.10.2021 03:28
-
rabbit2708.01.2021 14:34
-
horan6624.09.2020 15:12
-
РумакСтепан11.07.2020 15:30
-
kupcovaSvetl23.04.2021 12:13
-
aleksejgrunin007.11.2020 07:26
-
KiskaDasha09.03.2020 00:32
-
DIPPER111219.12.2021 17:26
-
viiiiiiiiiiii25.06.2022 14:10