Двумерные массивы...

[BarSenok]

Заменить последний отрицательный элемент каждого столбца нулём...

[Жека-старший]

for j:=1 to m do
begin
   otr:=0;
   for i:=1 to n do
   if a[i,j]<0 then otr:=i;
   if otr>0 then a[otr,j]:=0;
end;

[ROMA2PVT]

Program massiv;
uses crt;
var
E:array[1..100,1..100] of integer;
d:array[1..100] of integer;
i,j,n,m,sum:integer;
begin
clrscr;
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
writeln('Исходная матрица: ');
for i:=1 to n do
  begin
  for j:=1 to m do
  begin
  e[i,j]:=random(10)-5;
  write(e[i,j]:4);
  end;
  writeln;
end;
begin
  for j:=m downto 1 do
  if e[i,j]<0 then
  begin
  e[i,j]:=0;
  end;
  end;
writeln;
writeln('Результирующий массив: ');
for i:=1 to n do
  begin
  for j:=1 to m do
  begin
  write(e[i,j]:4);
  end;
  writeln;
end;
readkey;
end.

А я бы так сделал.

[ROMA2PVT]

Заменить последний отрицательный элемент каждого столбца нулём...

Правда сложно автор?

[BarSenok]

Жека-старший, спасибо!!!

Правда сложно автор?

Было б легко - не спрашивала б...
Кстати, у Вас все отрицательные элементы заменяются нулём...

[ROMA2PVT]

Кстати, у Вас все отрицательные элементы заменяются нулём...

Странно но у меня последние элементы столбцов заменяются.

[BarSenok]

Сообщение от ROMA2PVT

Странно но у меня последние элементы столбцов заменяются.

Не знаю, у меня все...
Но всё равно спасибо!!=)

[ROMA2PVT]

Да проверил на трёх паскалях.Всё чётко заменяется.
посмотри повнимательней. Если делать так как Жека-старший

for j:=1 to m do
begin
   otr:=0;
   for i:=1 to n do
   if a[i,j]<0 then otr:=i;
   if otr>0 then a[otr,j]:=0;
end;

Генерни нсколько раз и просмотри столбцы.Вроди и ещё некоторые заменяются.

[BarSenok]

Я сделала, как он, - всё хорошо!=)

[ROMA2PVT]

Не по теме:
Ну не знаю чё у вас там не заменяется. Может просто вы плохо видите?