Найти произведение нечетных элементов в массиве,заданном датчиком случайных чисел на интервале [-38,39]. Размер массива 10 чисел.
Answers & Comments
Adequate
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.
Answers & Comments
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.