конструктор режимін қолдана отырып мәліметтер қорын қалай дайындайды? Сатылап жазып шығыңыз

Var a:array[1..100] of integer;
i,p,n:integer;
begin
writeln('введите количество элементов');  read(n);
p:=1;
randomize; {случайные числа}
for i:=1 to n do {от 1 до n элемента}
begin
a[i]:=random(100)-50; {случайные числа, можешь указать любые значения}
if a[i] mod 4=0 then{если элемент массива делится на 4 с остатком 0}
p:=p*a[i]; {умножаем текущее p на этот элемент}
end;
writeln(p); {выводим произведение}
end.

В случае,если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. Если это не нужно, то строку if a[i] mod 4=0 then
замени на if (a[i]<>0) and (a[i] mod 4=0) then Тогда 0 учитываться не будет.

Достижения в области новых технологий, на которых основывается формирование информационного общества, во многом изменили характер политических процессов. По новому начинают осмысливаться понятия политической коммуникации и политического информационного пространства. Существенным трансформациям подвергается вся система государственнного управления, свидетельством чего стала активно обсуждаемая и постепенно внедряемая в практику многих стран проблема “Электронной-демократии”. Без информационного сопровождения функционирование современных демократических институтов может быть существенно затруднено, а обеспечение равного доступа к политическим сетям при определенных условиях может закреплению демократических стандартов и их развитию. При этом выясняется, что современные информационные технологии, по мере расширения их сферы применения в повседневной жизни общества, создают потенциальную возможность не только для углубления демократических процессов, но и тотального контроля за частной жизнью и манипулятивного воздействия на личность. В условиях существования открытых, легко доступных и легко наполняемых информационных сетей возникает проблема ограничения информации, считающейся социально и экономически опасной; проблема электронного распространения персональных данных, проблема информационного элитаризма, когда лишь часть населения получает доступ к новым технологиям и информационным ресурсам и в состоянии реализовать это преимущество; проблема информационного империализма, когда ту же проблему доступа к информации и управления ею большие страны используют против малых; проблема соблюдения авторских прав и прав производителей электронной информации. Особую проблему преставляет вопрос об информационно бедных странах. На втором Всемирном Саммите по информационному обществу /Тунис, 2005/ обсуждался в качестве одного из главных вопрос информационного неравенства стран и трансформация понятия экономически бедных стран в информационно бедных. В информационном обществе возникают принципиально новые информационные угрозы для личности, общества и государства. Отсюда - жизненнно важное значение междисциплинарных и, в первую очередь, социально-политических исследований проблем информационной безопасности, киберпреступлений, информационного противоборства и информационных войн. И это - лишь часть принципиально новых социально-политических проблем, возникающих при определении национальной стратегии информационной политики государства в контексте происходящих изменений. Таким образом, актуальность исследований информационного общества связана с необходимостью теоретического осознания и эффективного политического управления процессами, возникающими под воздействием информационно-коммуникативных технологий.В свете становления информационного общества происходят глобальные изменения, которые трансформируют всю социальную структуру, оказывая воздействие на политические, экономические, культурные и социальные процессы. Глубоко изменяется социально-экономическая структура общества.