Ответы на вопрос:
Program swap; const n = 10; var a: array [1..n] of integer; i, temp: integer; begin randomize; writeln('исходный массив: '); for i : = 1 to n do begin a[i] : = random(10); write(a[i], ' '); end; writeln; i : = 1; while i < = 9 do begin temp : = a[i]; a[i] : = a[i+1]; a[i+1] : = temp; i : = i + 2; end; writeln('полученный массив: '); for i : = 1 to n do write(a[i], ' '); end.
Популярно: Информатика
-
germanlandyshev27.06.2023 03:25
-
единорог10607.01.2021 17:14
-
lcjewfyjozo07516.06.2023 08:26
-
5ти08.01.2020 19:22
-
driftsmuk110.04.2023 00:47
-
Sanya1936718.09.2021 07:44
-
kirillarhipenc119.01.2023 01:47
-
соня1310116.09.2021 03:29
-
dkrechetov8502.02.2022 13:27
-
VitalЯ18.05.2021 06:48