var a, b, c, d, i, j :integer; s :array [1..100,1..100] of integer; begin b:=63999; c:=-63999; for i:=1 to 15 do begin writeln; for j:=1 to 15 do begin s[i,j]:=random(127998)-63999; a:=a+s[i,j]; if s[i,j]>c then c:=s[i,j]; if s[i,j]<b then b:=s[i,j]; write (s[i,j],' '); end; end; writeln; writeln ('Сумма элементов = ', a); writeln ('Максимальный элемент = ', c); writeln ('Минимальный элемент = ', b); end.
Главное отличие домена от рабочей группы заключается в том, что "рабочая группа" - это совокупность независимых компьютеров, а домен - единая система. В локальной сети без домена каждый компьютер имеет свой набор пользовательских профилей. То есть, пользователь Вася может обратиться к компьютеру пользователя Пети в следующих вариантах 1. Как специальный системный пользователь "Гость", имеющий минимальные полномочия. 2. Как пользователя Петя, используя его пароль и получив его права. 3. Как пользователь Вася, которого Петя специально зарегистрировал на своём компьютере. При этом Вася должен сказать Пете свой пароль либо использовать тот пароль, который назначит на своём компьютере Петя. Более того, "рабочая группа" применяется исключительно для того, чтобы пользователь не видел "лишние" компьютеры в "сетевом окружении". На права доступа рабочая группа никак не вляет.
В домене же используется единый список пользователей и прочих участников безопасности, который хранится на контроллере домена. Как следствие, единожды зарегистрированный пользователь получает доступ ко всем компьютерам домена согласно установленным данному пользователю полномочиям. Различные изменения вроде смены пароля или блокировки профиля сразу же действуют во всём домене.
Написано на PascalABC.NET, но должно работать и в простом Паскале.