Нужна ваша Защитите файлы, созданные в MS Power Point 2010.
2. Защитите архивацией документ MS Word 2010.
3. Пронумеруйте буквы латинского алфавита числами от 1 до 26.
Шифруйте и дешифруйте методом RSA слова «million», «secret», «Aza-
mat».
4. Как осуществляется защита компьютера?
А. Паролем; В. Анкетированием; С. Кодируется; D. Создается ярлык.
n = 25;
var
a: array[1..n] of real;
i, j: integer;
min, max: real;
sum, product, harmonic: real;
begin
{ввод массива}
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(40) - 20;
write(a[i], ' ');
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
sum := sum + a[i];
writeln('average = ', sum / n);
{минимум и максимум}
min := a[1];
for i := 1 to n do
if min > a[i] then min := a[i];
writeln('min = ', min);
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.