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

StartA:

writeln ('Матрица A:');

for i := 1 to N do

for j := 1 to N do

begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

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

goto StartA;

end;

A[i,j] := M;

end;

StartB:

writeln ('Матрица B:');

for i := 1 to N do

for j := 1 to N do

begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

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

goto StartB;

end;

B[i,j] := M;

end;

StartC: