Ответы на вопрос:
Ответ на первую var i,m,b: integer; a: array[1..15] of integer; begin for i: =1 to 15 do a[i]: =random(100)+1; repeat for i: =1 to 14 do if a[i]< a[i+1] then begin b: =a[i]; a[i]: =a[i+1]; a[i+1]: =b; end; inc(m); until m=14; for i: =1 to 15 do if a[i] mod 2 = 0 then write(a[i],' '); end.
Популярно: Информатика
-
Matvei20032209.11.2021 03:47
-
karlmed17.03.2020 06:12
-
Reek565730.03.2022 01:16
-
WhiteAlex02.07.2020 23:09
-
mira13314.04.2020 04:15
-
20лиза0712.02.2021 06:29
-
макашария15.03.2020 12:22
-
edinorogik516.04.2020 16:48
-
wonderr17.12.2022 10:42
-
ksanka12058114.09.2020 12:15