Ответы на вопрос:
//прога на pascal`е var a: array of longint; n, i: longint; // procedure zam(var a, b: longint); var pz: longint; beginpz: =a; a: =b; b: =pz; end; procedure selectsort (rm : longint; var sortmas: array of longint); vari, j, min: longint; begin for i: =0 to rm-2 dobeginmin: =i; for j: =i to rm-1 doif sortmas[min]> sortmas[j] then min: =j; if i< > min then zam (sortmas[i], sortmas[min]); end; end; // beginrandomize; readln (n); setlength (a, n); for i: =0 to n-1 doa[i]: =random (2*1000000000) - 1000000000; writeln (a); selectsort (n, a); writeln (a); end.
Популярно: Информатика
-
Юлькач03.07.2022 00:39
-
lyazkaiman030919.08.2021 10:28
-
aleksaprincessa24.04.2021 19:47
-
Rima0207.12.2021 04:16
-
1Тамблер102.10.2020 23:12
-
барынмай30.10.2020 11:21
-
caramel170130.10.2021 00:21
-
Чарос030222.05.2022 17:17
-
Myrzik00720.05.2022 14:09
-
tarassedelniko10.04.2021 04:30