Ответы на вопрос:
Program xax; var i: shortint; a,b: array [-10..10] of byte; begin randomize; for i: =-10 to 10 do begin a[i]: =random(100); write(a[i],' '); end; writeln; for i: =-10 to -1 do b[i]: =a[-11-i]; for i: =1 to 10 do b[i]: =a[11-i]; b[0]: =a[0]; for i: =-10 to 10 do write(b[i],' '); end.
Популярно: Информатика
-
сергейщепетинов09.02.2022 14:55
-
SmokeSivunenko10.03.2020 09:43
-
shkiper1555502.01.2023 14:36
-
kavuzov01karamba7315.02.2023 03:08
-
нюша30522.11.2020 10:54
-
ElenaAlrman270704.04.2021 22:44
-
veraserditih01.07.2022 05:53
-
kokeoru102.03.2020 05:00
-
Wanemid16.10.2022 06:36
-
пажалуйста405.02.2021 13:44