Ответы на вопрос:
Program task; var a: array [1..10] of integer; i, tmp: integer; begin randomize; writeln('сформированный массив: '); for i : = 1 to 10 do begin a[i] : = random(10); write(a[i], ' '); end; writeln; for i : = 1 to 5 do begin tmp : = a[i * 2]; a[i * 2] : = a[i * 2 - 1]; a[i * 2 - 1] : = tmp; end; writeln('измененный массив: '); for i : = 1 to 10 do write(a[i], ' '); readln; end.
Популярно: Информатика
-
Ленабогатова107.03.2022 12:46
-
alinka57d17.09.2021 23:46
-
radmirhik270615.11.2020 16:40
-
aibarealmadrid20.02.2023 15:47
-
stasvikulyа10.02.2021 22:06
-
КостянЕрмаков2313.03.2022 22:18
-
ВаняСуліма09.03.2023 07:33
-
Sekureti55610.10.2020 23:05
-
yakubovmalik21.06.2022 10:59
-
ArtyomFoshan05.01.2020 13:57