1) var ar:array of integer;
<span>n,i:integer;
procedure writing(ar:array of integer; var i,n:integer);
begin;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
end;
begin;
readln(n);
writeln('Array:');
SetLength(ar,n+1);
for i:=1 to n do
readln(ar[i]);
i:=1;
writeln('Result:');
writing(ar,i,n);
<span>end.
</span>2) </span>var ar:array[1..10] of integer;
n,i:integer;
sr,otk,otkm:real;
begin;
randomize;
otkm:=-1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
sr:=sr+ar[i];
write(ar[i]:4);
end;
sr:=sr/10;
for i:=1 to 10 do
begin;
otk:=ar[i]-sr;
if otkm<otk then otkm:=otk;
end;
writeln;
writeln('Среднее арифметическое:',sr);
write('Максимальное отклонение:',otkm);
end.
<span>1.Директор - учителя, 2. учитель - ученики, 3. пилот - самолёт, 4. вожак - стая, 5. пастух - коровы.</span>
Делаем переменную count — счётчик
Для наивной реализации, можно проверить что число лежит в диапазоне [0o10; 0o77] или в десятичной [8; 63]
Потом проверить что a[i] mod 8 > a[i] div 8
Если число соответствует всем условиям, увеличиваем счётчик
Потом выводим значение count
1) n=2 в степени i
Где n - кол-во символов в алфавите, а i - вес одного символа в битах. Подставим значение n в формулу.
8=2 в степени i
Значит, i=3.
2) m=k*i
Где m - кол-во информации сообщения (в битах/байтах и т.д.), k - кол-во символов в сообщении. Подставим значения:
m=13*3=39 (бит)
Ответ: 39 бит.