Pascal ABC: Программирование матричных операций

[AnnieBond]

//Рассчитываем вектор Х
For i:=1 to n do
  Begin
    x[i]:=0;
    For j:=1 to n do
      x[i]:=x[i]+a[i,j];
    s:=0;
    For k := 1 to i do
      s := s + a[i,k];
    x[i] := x[i] - n*s;
  End;

В предпоследней строке неправильно записана формула x[i] := x[i] - n*s;
Как записать ее верно??

[AnnieBond]

помогите пожалуйста, одна строчка неправильно записана только

[BDA]

У нас презумпция невиновности
Вы можете доказать, что она неправильная?

Даже лучше с другого конца. С чего вы взяли, что она неправильная?

По-моему, все правильно.
Внутренняя сумма не зависит от внешней, значит, она может быть вынесена.

[AnnieBond]

Нет, но мой профессор по информатике может это доказать
Он сказал, неправильно записана только формула x[i] := x[i] - n*s;
Остальное верно.

[TinMan]

Сообщение от AnnieBond

Нет, но мой профессор по информатике может это доказать

imho он просто не вник.. Ты прогоняла на тестах? Какие результаты? Верные или нет? Если не прогоняла - попроси прогнать.. Результат покажет, кто прав.

[AnnieBond]

Прошу прощения, все действительно правильно
Огромное спасибо