Написать программу в паскале. даны квадратные матрицы а и в порядка n. получить матрицу ab-ba.

108

326

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

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

лилия371

Информатика

4,4(44 оценок)

Var a,b: array [1..10,1..10] of integer; i, j, n: integer; begin randomize; writeln('введите размерность n'); readln(n); writeln('матрица а'); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: = random(10)+1; write(a[i,j]: 3); end; writeln; end; writeln('матрица b'); for i: =1 to n do begin for j: =1 to n do begin b[i,j]: = random(10)+2; write(b[i,j]: 3); end; writeln; end; writeln('ответ: матрица ab'); for i: =1 to n do for j: =1 to n do begin c[i,j]: =(a[i,j]*b[i,j]); end; writeln; for i: =1 to n do begin for j: =1 to n do begin write(c[i,j]: 3); end; writeln; end; writeln('ответ : матрица ва'); for i: =1 to n do for j: =1 to n do begin d[i,j]: =(b[i,j]*a[i,j]); end; for i: =1 to n do begin for j: =1 to n do begin write(d[i,j]: 3); end; writeln; end; end.