Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.<span>
</span>
Ответ: 1
ВОР, больше никак не расшифровывается.
<span>Отрицание отрицания дает утверждения.
1. Сегодня в театре не идет опера Евгений Онегин.2. Не каждый охотник желает знать, где сидит фазан.3. Число 1 - не простое число.4. Натуральные числа, не оканчивающиеся цифрой 0, не являются простыми числами.5. Верно, что число 3 является делителем числа 198.6. Коля решил не все задания контрольной работы.7. Не во всякой школе некоторые ученики интересуются спортом.8. Некоторые млекопитающие живут на суше.</span>