sled_a:=0;{инициализация переменной sled_a}
sled_b:=0;{инициализация переменной sled_b}
for i:=1 to 5 do{цикл, в котором считаются следы А-матрицы и В-матрицы}
begin
sled_a:=sled_a+a[i,i];
sled_b:=sled_b+b[i,i];
end;
sled_b:=sled_b+b[6,6];
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.