Информационный вес символа алфавита равен 7 битам.чему равна мощность этого алфавита?
149
303
Ответы на вопрос:
паскаль авс. программа меняет местами половинки массива: (6-10) и (1-5)
program nana05; uses crt; const n=10; var a: array [1..10] of integer; i,j,min,temp: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); randomize; writeln('элементы массива: '); {создание и вывод массива} for i: =1 to n do begin a[i]: =random(100)-50; write (a[i]: 5); end; {меняем местами половинки массива} for i: =1 to 5 do begin temp: =a[i]; a[i]: =a[5+i]; a[5+i]: =temp; end; writeln(); writeln('результат: '); for i: =1 to n do write(a[i]: 5); end.
Популярно: Информатика
-
Kiryshka253201.05.2020 12:49
-
Aigulshak30.05.2021 15:41
-
vikki1748115.06.2022 20:28
-
vzarina57625.03.2022 14:55
-
nyurachernikov01.08.2022 12:53
-
summani200525.01.2023 15:38
-
newumnik06.05.2021 03:37
-
lechyktvoeimamke22.08.2020 11:10
-
софияпрекрасная1506.08.2022 22:23
-
statarincev201903.09.2020 16:51