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

[BarSenok]

Чёж меня глючит чтоли.На Pascal ABC ток что проверил и менят строго отрицательные.

Да, но все отрицательный.

[DoDge_VipeR]

у тебя программа меняет только отрицательные в последней строке! Если же в последней строке стоит положительное то она по идее должна менять предыдущий отрицательный в данном столбце твоя же ложит на все и шпарит дальше!

[DoDge_VipeR]

Вот полностью рабочая прога без лишних проходов по матрице

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 i:=1 to m do
  for j:=n downto 1 do
  if e[j,i]<0 then
  begin
  e[j,i]:=0; break;
  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]

Это глюк?

[DoDge_VipeR]

это ты свою запустил? посмотри на последние 2 столбца там отрицательные(-3 & -1) не заменены- а должны)

[ROMA2PVT]

Всё извиняюсь за спор.Ступил.Обнаружил косяк.
Эт всё невнимательность моя.