Дано: двовимірний масив дійсних чисел. визначнте: добуток елементів, розміщених у непарних стовпцях.

163

417

Посмотреть ответы 3

Ответы на вопрос:

nasty286

Информатика

4,5(31 оценок)

//pascal abc.net v3.1 сборка 1172 const n=3; var ma: array[1..n,1..n] of real; i,j: integer; r: real; begin randomize; r: =1; writeln('matrix: '); for i: =1 to n do begin; writeln; for j: =1 to n do begin; ma[i,j]: =random(1,10); if j mod 2< > 0 then r: =r*ma[i,j]; write(ma[i,j]: 4); end; end; writeln; writeln('res=',r); end. пример работы кода : matrix: 5 3 3 2 2 5 10 2 4 res=6000

Hvhvhvhvhvhv23

Информатика

4,7(41 оценок)

Pascal abc.net const n = 3; var a: array[1..n, 1..n] of real; i, j: integer; pr: real; begin pr: =1; for i: =1 to n do for j: =1 to n do readln(a[i, j]); for i: =1 to n do for j: =1 to n do if j mod 2 < > 0 then pr: =pr*a[i, j]; writeln(pr); end.