Контрольная работа: Операции с матрицами

Msub (Xtmp1,X);

Madd (A,X);

for i := 1 to N do

begin

writeln (' ',i,'-ыйрядрезульт. м-цы: ');

for j:= 1 to N do begin

write (' ',X[i,j], ',');

end;

writeln ('');

end;

end.

6. Контрольный пример

Введите размер матрицы(2-9)

2

Матрица A:

Введите 1-ое значение 1-ого ряда

1

Введите 1-ое значение 2-ого ряда

1

Введите 2-ое значение 1-ого ряда

1

Введите 2-ое значение 2-ого ряда

1

Матрица B:

Введите 1-ое значение 1-ого ряда

2

Введите 1-ое значение 2-ого ряда

2

Введите 2-ое значение 1-ого ряда