Ответы на вопрос:
Const n=10; var i,p: integer; a: array[1..n] of integer; begin for i: =1 to n do begin a[i]: =random(-10,10); write(a[i],' '); end; writeln(); i: =1; while(i< n) do begin p: =a[i]; a[i]: =a[i+1]; a[i+1]: =p; i+=2; end; for i: =1 to n do write(a[i],' '); end.
Популярно: Другие предметы
-
enrnud607.12.2021 08:40
-
INokentiy22827.03.2020 20:47
-
MATVEI23525.06.2020 06:39
-
Котеика1космос24.04.2021 12:58
-
люда33407.05.2022 19:38
-
zu3vaelina19.09.2021 20:40
-
geamget26.05.2021 09:41
-
Elviraelvira20029.11.2022 02:54
-
deepytat12.07.2022 08:54
-
тигрица08621.01.2022 22:22