Определить произведение элементов массива, стоящих на чётных местах.

Question

Информатика

Евдоша

14 апреля, 12:56

Определить произведение элементов массива, стоящих на чётных местах.

+5

Ответы (1)

Знаете ответ на вопрос?

Мишура · Answer 1

Var k, n, i, j:integer;

a:array[1 ... 100,1 ... 100] of integer;

begin

readln (n) ;

for i:=1 to n do

for j:=1 to n do

begin

write ('A[', i,',', j,']=') ;

readln (a[i, j]) ;

end; k:=1;

for i:=1 to n do

for j:=1 to n do

if j mod 2=0 then k:=k*a[i, j];

writeln (k) ;

end.