Д) е)
htte is avни
Ачилт
- не іtіну,
9
8
7
6+
5 +
4
3
2 дни
1
9
8
7
6
5
4
3
2
1
на услуга ури
- у нугай.
0 1 2 3 4 5 6 7 8 9
0​

1. В СОМ-технологии маршалинг используется для чего?
Для передачи данных по значению между Com объектами
2. В СОМ-технологии информация  место нахождении находится СОМ-сервера находится где?В реестре виндовс
3. Если приложение  использует СОМ-сервер реализованный в виде DLL то это позволяет?Быстро подменять DLL на новую версию чтобы изменения быстро вступили в силу чтобы проверить как работает.Параллельную разрабтку разных компонент
4. Если приложение  использует СОМ-сервер реализованный в виде EXE то это позволяет?каждому приложению не таскать с собой DLL , обращаться к нему по имени и к одному и томуже объекту из разных мест и разных сред.Использвать ООПшный шаблон-подход фабрику.
5. В СОМ-технологии для облегчения корректного взаимодействия многопоточного клиента  и однопоточного сервера используют?Межпотоковую синхронизацию

Var b:array[1..10,1..3] of integer;
i,j,k,s,gi,bo:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
for j:=2 to 3 do b[i,j]:=random(30);
k:=1;
for i:=1 to 10 do begin
for j:=1 to 3 do
b[i,1]:=k;
inc(k);
end;
for i:=1 to 10 do begin
for j:=1 to 3 do write(b[i,j]:5);
writeln;
end;
for i:=1 to 10 do
for j:=2 to 3 do
s:=s+b[i,j];
write(' Всего сотрудников в учреждении: ',s);
for i:=1 to 10 do
gi:=gi+b[i,2];
write(' Женщин в учреждении: ',gi);
for i:=1 to 10 do
bo:=bo+b[i,3];
write(' Мужчин в учреждении: ',bo);
if (gi>bo) then write(' женщин больше')
else write(' мужчин больше');
if (gi=bo) then write(' женщин и мужчин одинаковое количество');
end.