Настоящая Доктрина представляет собой систему официальных взглядов на обеспечение национальной безопасности Российской Федерации в информационной сфере.
В настоящей Доктрине под информационной сферой понимается совокупность информации, объектов информатизации, информационных систем, сайтов в информационно-телекоммуникационной сети "Интернет" (далее - сеть "Интернет"), сетей связи, информационных технологий, субъектов, деятельность которых связана с формированием и обработкой информации, развитием и использованием названных технологий, обеспечением информационной безопасности, а также совокупность механизмов регулирования соответствующих общественных отношений.
var
a: array of integer;
n, i, maxpar, minn: integer;
begin
Write('Введите размер массива N: '); ReadLn(n);
SetLength(a, n);
randomize;
minn := 51;
WriteLn('Массив:');
for i := 0 to n - 1 do
begin
a[i] := random(50) + 1;
Write(a[i], ', ');
if (a[i] < minn) and (a[i] mod 2 = 1) then minn := a[i];
end;
WriteLn;
Sort(a);
for i := 0 to n - 2 do
if a[i] = a[i + 1] then maxpar := a[i];
if maxpar <> 0 then WriteLn('Максимальный парный элемент равен ', maxpar)
else WriteLn('В массиве нет парных элементов');
WriteLn('Минимальный нечетный элемент равен ', minn);
end.
Объяснение:
Объяснение:
решение