Question

Для массива целых чисел X(5,5) найти произведение P элементов, находящихся на его диагоналях и сравнить эти произведения
Даю 100 баллов, решить на паскале

Answer 1

Ответ:

program z;

var i,j,pg,pp:integer;

x:array [1..5,1..5] of integer;

begin

pg:=1;

pp:=1;

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

x[i,j]:=random(10);

if i=j then pg:=pg*x[i,j];

if i+j-1=5 then pp:=pp*x[i,j];

write(x[i,j]:3)

end;

writeln

end;

if pg=pp then write('произведения равны')

else if pg>pp then write('произведение больше на главной диагонали')

else write('произведение больше на побочной диагонали')

end.

Объяснение:

pg - переменная для произведения элементов на главной диагонали

pp - переменная для произведения элементов на побочной диагонали

формула для элементов на главной диагонали: i = j

формула для элементов на побочной диагонали: i + j - 1 = n