Ответы на вопрос:
//зачем прикручивать дополнительный if, когда можно сделать while? var ar: array[1..10] of integer; i: integer; procedure swap(var a,b: integer); var c: integer; begin; c: =a; a: =b; b: =c; end; begin; randomize; writeln('array: '); for i: =1 to 10 do begin; ar[i]: =random(11); write(ar[i]: 4); end; i: =1; while i< 10 do begin; swap(ar[i],ar[i+1]); i: =i+2; end; writeln; writeln('final array: '); for i: =1 to 10 do write(ar[i]: 4); end.
Популярно: Информатика
-
дарья164423.03.2020 20:52
-
valeriy34524.05.2022 06:15
-
Аида161111.03.2023 14:08
-
аслан9111.12.2020 13:06
-
Biglok01.06.2020 14:41
-
ggggttttt17.06.2022 05:41
-
mishanyak199914.06.2021 13:14
-
ibra1613.04.2022 22:49
-
6valeria614.11.2022 12:48
-
айдын2314.05.2022 14:15