1. Дан массив. все его элементы уменьшить на число а. 2. Найдите произведение нечетных элементов массиваВ паскале, так что бы работало на компьютере и выдавала результат.

program zz1;

const n=10; / /задаем размерность массива

var mas:array [1 ... n] of integer;

i, a, p:integer;

begin

read (a); / /вводим заданное а

for i:=1 to n do mas[i]:=random (21); / /заполняем массив случайными числами

for i:=1 to n do write (mas[i],' '); / /выводим массив на экран

for i:=1 to n do mas[i]:=mas[i]-a; / /уменьшаем каждый элемент массива на а

writeln; / /переходим на новую строку для вывода

for i:=1 to n do write (mas[i],' '); / /выводим массив на экран

p:=1; / /задаем начальное значение для произведения

for i:=1 to n do if mas[i] mod 2=1 then p:=p*mas[i]; / /проверяем, если элемент массива нечетный, то умножаем его на произведение

writeln;

write ('произведение нечетных элементов массива = ', p); / /выводим ответ

end.