Ответы на вопрос:
Var n,i,j,c: integer; a: array[1..201] of integer; begin writeln('введите колөво элементов массива'); readln(n); for i: =1 to n do a[i]: =-100+random(201); writeln('исходный массив'); for i: =1 to n do write(a[i]: 5); writeln; for i: =1 to n-1 do for j: =i+1 to n do if a[i]< a[j] then begin c: =a[j]; a[j]: =a[i]; a[i]: =c; end; writeln('отсортированный массив'); for i: =1 to n do write(a[i]: 5); writeln; end.
Популярно: Информатика
-
Клеоок15.11.2022 22:40
-
Fear1ess30.03.2021 04:39
-
bek3406.01.2021 12:54
-
Вика678975424.10.2021 21:17
-
ArinaStar33709.12.2022 20:48
-
Kozlovanika7119.04.2020 08:16
-
rrurr19.11.2022 17:40
-
Елизавета9992928.11.2020 20:51
-
anastasanesvido07.03.2021 04:46
-
Vovanik21219.12.2022 14:56