В самом общем смысле компьютерная этика занимается исследованием поведения людей, использующих компьютер, на основе чего вырабатываются соответствующие нравственные предписания и своего рода этикетные нормы. Само употребление выражения «компьютерная этика» весьма условно, эта дисциплина очень молода, она появилась на рубеже 70-х — 80-х гг. XX столетия, и наряду с ней употребляются такие термины, как «информационная этика», «киберэтика».
Компьютерная этика представляет собой область междисциплинарного исследования и включает рассмотрение технических, моральных, юридических, социальных, политических и философских вопросов. Проблемы, анализируемые в ней, условно можно разделить на несколько классов: 1) проблемы, связанные с разработкой моральных кодексов для компьютерных профессионалов и простых пользователей, чья работа связана с использованием компьютерной техники; 2) проблемы защиты прав собственности, авторских прав, права на личную жизнь и свободу слова применительно к области информационных технологий; 3) группа проблем, связанных с появлением компьютерных преступлений, определением статуса, то есть преимущественно правовые проблемы.
В рамках компьютерной этики выделяется особая область, называемая «хакерской этикой», основание которой заложили хакеры, пионеры, стоявшие у истоков современных информационных технологий. А с развитием сети Интернет в обиход входит и понятие «сетевой этики» или «нэтикета» (производное от net — сеть и etiquette — этикет), обозначающее совокупность правил, сложившихся среди пользователей глобальной сети.
var
f:text;
i, c:integer;
count:byte;
begin
randomize;
Assign(f, 'out.txt');
rewrite(f);
count := 0;
for i := 1 to 100 do
begin
c := random(21);
if c = 0 then
inc(count);
write(f, c, ' ');
end;
close(f);
writeln('Количество элементов равных 0 равно ', count);
end.