Помогите пожалуйстаДана m векторов x1=(x11,x21,x31), ..., xm=(x1m,x2m,x2m),Написать программу нахождения суммы этих векторов .


Аноним: Это что, обычная матрица размера m х 3, в которой каждый вектор представляется её столбцом?
aidafat: Да
Аноним: Тогда не сумму, а три суммы - по одной для каждой из трех координат. А если просто сумму - это будет всего лишь сумма элементов матрицы.
aidafat: Надо просто сумму

Ответы

Ответ дал: Аноним
2
Const
   m = 7;
Var
   X:array[1..3,1..m] of real;
   S:real;
   i,j:integer;
Begin
Randomize;
S:=0;
For j:= 1 to 3 do
    Begin
    For i:= 1 to m do
        Begin
        X[j,i]:=random(21)-10;
        S:=S+X[j,i];
        Write(X[j,i]:3,' ')
        End;
    WriteLn
    End;
WriteLn('S = ',S);
End.

aidafat: Вы уверенны ,что это правильно ?
Аноним: Вам нужна сумма элементов матрицы 3×m ? если да, то всё верно.
Вас заинтересует