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

for i := 1 to N do begin

for j := 1 to N do begin

X[i,j] := MA[i,j] - MB[i,j];

end;

end;

end;

{процедура умножения матрицы на число}

procedure MK ( MA : matrix; k : integer);

begin

for i := 1 to N do begin

for j := 1 to N do begin

X[i,j] := MA[i,j] * k;

end;

end;

end;

begin

Start:

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

{примем размеры матриц}

readln (input);

val (input,N,code);

if code = 1 then begin

writeln ('Ошибка - нечисловое значение');

gotoStart;

end;

if (N > 9) or (N < 2) then

begin

writeln ('Неверный размер матрицы');

goto Start;