Страница 1 из 1
Pascal_Сформировать массив
Добавлено: 31 май 2009, 22:08
Zhenechka
Подскажите, пожалуйста, как решить такую задачу:
Даны массивы W(N,M), X(N). Сформировать массив Y(N), где Yi:=1,2...N есть сумма элементов i-той строки массива W, умножить на Xi, i=1,2...N.
Заранее спасибо.
Re: Pascal_Сформировать массив
Добавлено: 31 май 2009, 22:22
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;
Re: Pascal_Сформировать массив
Добавлено: 31 май 2009, 22:38
Zhenechka
Огромное спасибо!!!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
А может и последнюю задачку поможете решить?
Пожалуйста!!! Очень нужно завтра сдать.
Даны массивы A(N,N), B(M,M), C(N1, N1).
Заменить наименьший элемент каждого столбца исходного массива, начиная со второго, наибольшим элементом предшествующего столбца, используя подпрограмму.