Ответы на вопрос:
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.
Популярно: Информатика
-
026k19.05.2020 01:10
-
Smile46003.05.2022 09:57
-
karleusastar20.02.2020 12:13
-
ramser730019.12.2021 06:54
-
лана266103.11.2020 00:22
-
IxJugerNautxl10.10.2020 00:32
-
pirlikserge0508.02.2022 19:50
-
поЧеМучКа1111223.06.2022 04:53
-
zalinairina918.03.2022 22:58
-
FROST2222333317.11.2022 16:32