Question

Дан массив А(5,5), элементы которого случайные числа из [15;80]. Найти произведение нечётных элементов массива.

Answer 1

Ответ:

var A: array [1..5,1..5] of integer;

var i,j: integer;

var s: real;

begin

s:=1;

randomize();

For i:= 1 to 5 do

begin

For j:= 1 to 5 do

begin

A[i,j]:=random(66)+15;

if (A[i,j] mod 2 <>0) then s:=s*A[i,j];

write(A[i,j]:4);

end;

writeln();

end;

writeln('Произведение нечётных элементов массива: ',s);

end.