1)перечислите составляющие стандартной модели информационной безопасности cia. 2)какие понятия равнозначны понятию «конфиденциальная информация». 3)перечислите виды конфиденциальной информации.
Ответы на вопрос:
допустим, массив уже задан, поэтому его ввод писать не буду. kol - количество элементов массива
var
mas, mas_ob: array[0..999] of integer;
i, kol_null, sum, sum_nech, sum_ch, pp, i1, kol, max: integer;
begin
kol_null : = 0;
sum : = 0;
sum_nech : = 0;
sum_ch : = 0;
i1 : = 0;
max : = -10000;
for i : = 0 to kol do
begin
if mas[i] < > 0 then kol_null += 1; //2
sum += mas[i]; //3
if mas[i] mod 2 < > 0 then sum_nech += mas[i]; //4
if mas[i] mod 2 = 0 then sum_ch += mas[i]; //5
if mas[i] < 0 then mas[i] : = abs(mas[i]); //6
if mas[i] mod 21 = 0 then mas[i] : = 1; //7
if mas[i] > max then max : = mas[i]; //11
end;
pp : = mas[0]; //8
mas[0] : = mas[kol]; //8
mas[kol] : = pp; //8
for i : = kol downto 0 do //10
begin
mas_ob[i] : = mas[i];
i1 += 1;
end;
writeln('количество ненулевых элементов: ', kol_null);
writeln('сумма всех элеметов: ', sum);
writeln('сумма нечетных элеметов: ', sum_nech);
writeln('сумма четных элеметов: ', sum_ch);
writeln('максимальный элемент: ', max);
end.
Популярно: Информатика
-
katerina239830.11.2020 04:07
-
Magic082509.02.2023 00:38
-
tretekova8613.07.2022 07:35
-
ZigZag198304.12.2021 04:20
-
Margaryaanmag15.08.2021 01:21
-
seregapomogite04.03.2023 11:43
-
Nika103214.12.2022 05:01
-
vxtrxxx15.01.2022 12:25
-
Alecsei278Z01.05.2023 01:54
-
ExeLisor30.10.2021 13:13