Найти произведение нечетных элементов в массиве,заданном датчиком случайных чисел на интервале [-38,39]. Размер массива 10 чисел.

Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,p:Integer;
BEGIN
Writeln(Массив: );
 For i:=1 to n do 
 begin   
A[i]:=Random(77)-38;
   Write(A[i]:4); 
end; 
P:=1; 
Writeln;
  For i:=1 to n do     
if not A[i] mod 2=0 then   
   p:=p*A[i];   
 Writeln(Произведение: ,P);
Readln;
END.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.