Заполнить массив К (1 То N) случайными числами из отрезка [A, B] и определить произведение нечетных элементов.

Question

Информатика

Добря

21 декабря, 15:57

Заполнить массив К (1 То N) случайными числами из отрезка [A, B] и определить произведение нечетных элементов.

+1

Ответы (2)

Знаете ответ?

Кэплис · Answer 1

Var

a: array of integer;

i, N, prod: integer;

flag: boolean;

begin

prod : = 1; flag : = False;

write ('Введите N - > ') ;

readln (N) ;

SetLength (a, N) ;

for i:=0 to High (a) do begin

A[i] : = random (10) - 5;

write (A[i], ' ') ;

if (abs (A[i] mod 2) = 1) then

prod * = A[i];

flag : = True;

end;

writeln () ;

if (flag) then

writeln ('Произведение нечетных элементов: ', prod, '.')

else

writeln ('В массиве нет нечетных элементов.') ;

end.

Каллэ · Answer 2

Var

a: array of integer;

i, N, prod: integer;

flag: boolean;

begin

prod : = 1; flag : = False;

write ('Введите N - > ') ;

readln (N) ;

SetLength (a, N) ;

for i:=0 to High (a) do begin

A[i] : = random (10) - 5;

write (A[i], ' ') ;

if (abs (A[i] mod 2) = 1) then

prod * = A[i];

flag : = True;

end;

writeln () ;

if (flag) then

writeln ('Произведение нечетных элементов: ', prod, '.')

else

writeln ('В массиве нет нечетных элементов.') ;

end.