прямо сейчас нужно сдать=(​

на Free Pascal

Объяснение:

var

 a : integer;

 n, i, big, nc, ncount  : integer;

begin

 writeln('Введите количество чисел :');

 readln(n);

 big := 0;

 nc := 0;

 ncount := 0;

 for i := 1 to n do begin

   writeln('Введите ', i, ' число:');

   readln(a);

   if a>20 then

     big := big + a;

   if (a mod 2) <> 0 then begin

     nc := nc + a;

     inc(ncount);

   end;

  end;

 writeln('Сумма чисел > 20 = ', big);

 writeln('Среднее арифметическое ',ncount,' нечётных чисел =', nc/ncount:2:2);

end.

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