Кто может записать на дана квадратная матрица размера n. заполнение матрицы осуществляется с клавиатуры. составьте программу, определяющую истинность высказывания. если высказывание истинно, то вывести «true», иначе вывести «false». «в данной матрице произведение элементов, стоящих над побочной диагональю, равно произведению элементов, стоящих над главной диагональю».

Const nx=20; var i,j,n: integer; d: array[1..nx,1..nx] of integer; pg,pp: double; m: boolean; begin write('введите размер массива n'); readln(n); pg: =1; pp: =1; for i: =1 to n do begin for j: =1 to n do begin readln(d[i,j]); //d[i,j]: = random(35)-15; end; end; writeln; for i: =1 to n do beginfor j: =1 to n do begin write(d[i,j]: 4); end; writeln; end; writeln; for i: =1 to n do begin for j: =1 to n do begin if i < n-j+1 then begin write(d[i,j]: 4); pp: = pp * d[i,j]; end  else write(' ': 4); end; writeln; end; writeln; for i: =1 to n do begin for j: =1 to n do begin  if i < j then begin write(d[i,j]: 4); pg: = pg * d[i,j]; end  else write(' ': 4); end; writeln; end; writeln; writeln('произведение элементов массива над главной диагональю   =',pg); writeln('произведение элементов массива над побочной диагональю   =',pp); if pg = pp then m: = true else m: = false; writeln('высказывание =', m); end.

Var   a: array[1..100,1..100] of integer;   n,p1,p2, i,j: integer;   r: boolean; begin writeln('n='); readln(n); writeln('vvedite massiv: '); for i: =1 to n do begin   for j: =1 to n do   begin  read(a[i,j]);     end;     writeln;     end;     r: =true;   p1: =1;   p2: =1;   for i: =1 to n do  for j: = 1 to n do     if i + j < n + 1 then p1: =p1*a[i,j];   for i: =1 to n do   for j: = 1 to n do  if i< j then   p2: =p2*a[i,j];     if p1=p2 then   r: =true   else  r: =false;   writeln('в данной матрице произведение элементов, стоящих над побочной диагональю, равно произведению элементов, стоящих над главной диагональю=',r);   readln;   end.

1.b

2.c

3.a

4.d

Объяснение: