Ответы на вопрос:
Var m : array[1..10] of integer; i,t : integer; begin for i: =1 to 10 do begin m[i]: =i; write(m[i]: 3); end; writeln; for i: =1 to 3 do begin t: =m[i]; m[i]: =m[10-3+i]; m[10-3+i]: =t; end; for i: =1 to 10 do write(m[i]: 3); writeln; end. результат: 1 2 3 4 5 6 7 8 9 10 8 9 10 4 5 6 7 1 2 3
Популярно: Информатика
-
Cronus1Oleg12.02.2020 00:53
-
konuj19.02.2021 21:51
-
enotnana24.10.2020 12:11
-
alexeypimkin22.10.2020 04:47
-
гулнора09.09.2020 04:29
-
brain000320.02.2023 17:16
-
dimapudov200715.03.2020 09:16
-
amina32012.06.2021 07:31
-
8952320366321.03.2020 04:01
-
anyapletneva021.02.2022 13:51