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.
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.
• создавать;
• передавать;
• воспринимать;
• иотользовать;
• запоминать;
• принимать;
• копировать; формализовать;
• распространять;
• преобразовывать;
• комбинировать;
• обрабатывать;
• делить на части;
• упрощать; собирать;
• хранить;
• искать;
• измерять;
• разрушать;