Ответы на вопрос:
1) program otsort; var a: array[1..10] of integer; i,j,b: integer; begin for i: =1 to 10 do begin a[i]: =random(201)+50; write(a[i]: 4); end; for i: =1 to 10 do for j: =1 to 9 do if a[j+1]< a[j] then begin //отсортировка по возрастанию, поменять < на > для сортировки по убыванию b: =a[j+1]; a[j+1]: =a[j]; a[j]: =b; end; writeln; for i: =1 to 10 do write(a[i]: 4); end.
Популярно: Информатика
-
Nickhoffmanru02.05.2022 18:02
-
misha2265620.12.2020 11:12
-
Riddlemethis25.04.2022 07:06
-
миша113313.09.2021 23:11
-
alusykapogo27.04.2022 09:18
-
Маратрмл27.03.2022 12:11
-
lren121.01.2020 05:01
-
2003lyuba02.05.2020 13:40
-
anastassia789025.01.2023 04:59
-
artem151419.01.2020 15:37