Сумма положительных элементов столбца матрицы

[Guest]

Дана матрица A(N, M). Вычислите вектор X(M), где значение Xj равно сумме положительных элементов j-го столбца матрицы A.

помогите написать!!!

 

[nayke]

for i:=1 to n do
begin
x[i]:=0;
for j:=1 to m do
x[i]:=x[i]+a[i,j];
end;

 

[hosm]

сумме положительных элементов

if a[i,j] >0 then x:=x+a[i,j];

 

[nayke]

OKEN

а да не заметил..

 

[JFL]

Помогите пожалуйста с решением задачи. Pascal.
Задан массив из k символов. Удалить из него повторные вхождения каж-дого символа.

program xX;
var cr:integer;i:integer;c:char;s:string;
begin
writeln('vvedite simvol');
readln©;
writeln('vvedite stroky');
readln(s);
i:=1;
cr:=0:
while i<length(s) do
begin
if S[1]=C then cr:=cr+1;
if cr>1 then delete(S,i,1)else i:=i+1;
end;
end.
Это недоработка по принципу со строкой.
Заранее спасибо. Спасибо даже за то, что просто почитали.

 

[hosm]

link removed