Информационный объём сообщения, набранного на компьютере в кодировке кои-8, составляет 7 кбайт. определите, сколько символов в этом сообщении?
149
177
Ответы на вопрос:
1) просто выводим элементы наооборот program gt; var a: array[1..6]of longint; n,i: integer; begin read(n); for i: =1 to n do begin read(a[i]); end; for i: =6 downto 1 do begin write(a[i],' '); end; end. 2) добавляем дополнительный массив b program gt; var a,b: array[1..6]of longint; n,k,i: integer; begin read(n); k: =7; for i: =1 to n do begin read(a[i]); k: =k-1; b[k]: =a[i]; end; for i: =1 to 6 do begin write(b[i],' '); end; end. 3) изменяем элементы массива без дополнительных элементов program z10; var p, i: integer; x: array [1..6] of integer; begin for i: =1 to 3 do begin p: =a[i]; a[i]: =a[6-i+1]; a[6-i+1]: =p; end; for i: =1 to 6 do begin write(a[i],' '); end; end.
Популярно: Информатика
-
diana2525120.04.2022 20:16
-
daniel987628.03.2021 16:48
-
Nihilagay08.05.2021 21:19
-
lagis923.12.2021 00:43
-
rusrusik25.01.2021 23:55
-
ravilmammadov0921.06.2021 01:06
-
castlecrashers18.04.2022 13:26
-
фскорбин04.03.2021 00:05
-
фаргана407.03.2021 18:25
-
RaminaMirzaeva13.01.2021 16:02