Pascal_Сформировать массив

[Zhenechka]

Подскажите, пожалуйста, как решить такую задачу:
Даны массивы W(N,M), X(N). Сформировать массив Y(N), где Yi:=1,2...N есть сумма элементов i-той строки массива W, умножить на Xi, i=1,2...N.

Заранее спасибо.

[Sheka]

Код: Выделить всё

for i:=1 to n do begin
  s:=0;
  for j:=1 to m do inc(s,w[i,j]); 
  y[i]:=x[i]*s;
end;

[Zhenechka]

Огромное спасибо!!!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
А может и последнюю задачку поможете решить? Пожалуйста!!! Очень нужно завтра сдать.

Даны массивы A(N,N), B(M,M), C(N1, N1).
Заменить наименьший элемент каждого столбца исходного массива, начиная со второго, наибольшим элементом предшествующего столбца, используя подпрограмму.