Домашняя работа. двумерные массивы(pascal)

[Диляра - новичок]

1. Найти сумму элементов в каждом столбце двумерного массива.
2. Последний отрицательный элемент каждого столбца заменить нулем.
Помогите пожалуйста*

[Smitt&Wesson]

Сообщение от Диляра - новичок

1. Найти сумму элементов в каждом столбце двумерного массива.
2. Последний отрицательный элемент каждого столбца заменить нулем.
Помогите пожалуйста*

int i,j;
double z[X][Y];
double vectir[X]; // сдесь будем хранить результаты
// можно сдесь заполнить массмв
double a;
for(i=0; i<X; i++)// перебираем столбцы
for(j=0; j<Y; j++)// перебираем элементы столбца
{
if(j == Y-1 && z[i][j] < 0) z[i][j] = 0;// Если конец столбца и в конце отрицательный элемент - заменяем его тна ноль
else vector[x] += z[i][j];// Если нет - суммируем в дополнительном векторе
}

Вот, примерно так.

[unbanned]

в задании на паскале надо)))

program mas;

var
  m: array [1..10, 1..10] of integer; {длина массива в задании не указана. я взял 10}
  i, j, s: integer;

begin
  randomize;
  writeln('введенный массив:');
  for i := 1 to 10 do // идет 
    for j := 1 to 10 do // заполнение
    begin                     // массива
      m[i, j] := random(200) - 100; // рандомно... можно изменить на ввод с клавиатуры
      writeln('m', '[', i, ',', j, ']=', m[i, j]);
    end;
  s := 0;
  for i := 1 to 10 do 
  begin
    for j := 1 to 10 do s := s + m[i, j];
    writeln('сумма элементов ', i, ' столбца: ', s);
    s := 0
  end;
  for i := 1 to 10 do
    if m[i, 10] < 0 then m[i, 10] := 0;
  writeln('полученный массив:');
  for i := 1 to 10 do
    for j := 1 to 10 do
      writeln('m', '[', i, ',', j, ']=', m[i, j]);
end.